Delphi + Firebird 1.5

procedure TFrmPrincipal.FormShow(Sender: TObject);
var
  DataBase : TIBDatabase;
begin
  if NOT ((FireBirdGetProcess('fbserver.exe')) OR (FireBirdGetProcess('fb_inet_server.exe'))) then
    ControlFBSvr(True);
  If not((FileExists(ExtractFilePath(Application.ExeName)+'PANDORA.FDB'))) then
  begin
    if ((FireBirdGetProcess('fbserver.exe')) OR (FireBirdGetProcess('fb_inet_server.exe'))) then
    begin
      DataBase := TIBDatabase.Create(nil);
      try
        with DataBase do
        begin
          DatabaseName := 'PANDORA.FDB';
          SQLDialect   := 3;
          Params.Clear;
          Params.Add     ('USER ''SYSDBA''');
          Params.Add     ('PASSWORD ''masterkey''');
          Params.Add     ('PAGE_SIZE 16384');
          Params.Add     ('DEFAULT CHARACTER SET WIN1252');
          CreateDatabase;
        end;
        DmPandora.gerarIni;
        DmPandora.CnxPandora.Close;
        DmPandora.CnxPandora.Params.Clear;
        DmPandora.CnxPandora.Connected := False;
        DmPandora.CnxPandora.ConnectionName := 'PANDORA';
        DmPandora.CnxPandora.DriverName := 'FIREBIRD';
        DmPandora.CnxPandora.LoadParamsOnConnect := False;
        DmPandora.CnxPandora.Params.LoadFromFile(ExtractFilePath(Application.ExeName)+'\conexao.ini');
        DmPandora.CnxPandora.Connected := True;

        GeraScripts;
        DmPandora.CdsEmail.Open;
      finally
        FreeAndNil(DataBase);
      end;
    end
    else
    begin
      MessageDlg('O banco de dados não foi ativado!', mtWarning, [mbOK], 0);
      MessageDlg('Verifique se o mesmo esta instalado. Tente novamente!', mtError, [mbOK], 0);
      Application.Terminate;
    end;
  end;
end;