ShowMessage i MessageDlg

Code:

procedure Tdm.OtvoriDB;
var
  ti: tMyInit;
  dbName: string;
  Odg: integer;
begin
  ti := tMyInit.Create;
  dbName := ti.Read('DATABASE', 'NAME', '');
  ti.Free;
  Odg := mrCancel;
  if dbName = '' then
  begin
    Odg := MessageDlg('Nije određena radna baza' + ''#13'' + 'Odrediti radnu bazu?' + ''#13'' + ''#13'' + '(bez određene baze rad nije moguć)', mtConfirmation, [mbYes, mbNo], 0);
    if Odg = mrYes then
    begin
      fmParametri := TfmParametri.Create(nil);
      fmParametri.ShowModal;
      fmParametri.Free;
      ti := tMyInit.Create;
      dbName := ti.Read('DATABASE', 'NAME', '');
      ti.Free;
      if dbName = '' then begin
         ShowMessage('Baza nije određena' + #13 + 'Rad nije moguć');
         Application.Terminate;
         exit;
      end;
    end
    else
      Application.Terminate;
      exit;
  end
  else
  begin
    try
       fdc.Params.Database := dbName;
    except
      ShowMessage('Pogreška pri otvaranju radne baze:' + #13 + dbName);
      OtvoriDB;
    end;
  end;
  ...

Code:

implementation

{$R *.dfm}

{$MAXSTACKSIZE 1073741824}


procedure TForm2.Button1Click(Sender: TObject);
begin
 ShowMessage('Prikazi me');
end;