Firebird Database erstellen

[strom]

So,

wie kann ich jetzt überprüfen ob eine Database vorhanden ist, oder nicht!

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  begin
  IBCConnection1.Database := ExtractFilePath(Application.ExeName)+'Test.fdb';
  IBCConnection1.Params.Clear;
  IBCConnection1.Params.Add('USER ''SYSDBA''');
  IBCConnection1.Params.Add('PASSWORD ''masterkey''');
  IBCConnection1.Params.Add('PAGE_SIZE 4096');
  IBCConnection1.Params.Add('DEFAULT CHARACTER SET WIN1250');
  IBCConnection1.CreateDatabase;
  IBCConnection1.Connected := false;
  IBCConnection1.Params.Clear;
  IBCConnection1.Params.Add('USER_NAME=SYSDBA');
  IBCConnection1.Params.Add('PASSWORD=masterkey');
  IBCConnection1.Connected := true;
  IBCTransaction1.Active := true;
   with IBCTable1 do begin
     active:=false;
    TableName:='TEST';
     with FieldDefs do begin
      clear;
       Add('ID', ftInteger, 0, false); // AUTOINC Gibt es nicht, folgt später!!!
       Add('Game', ftString, 20, false);
       Add('UserID', ftString, 8, false);
       Add('PlayScore', ftInteger, 0, false);
       Add('PlayLevel', ftInteger, 0, false);
       Add('Playername', ftString, 40, false);
       Add('PlayerURL', ftString, 80, false);
       Add('PlayereMail', ftString, 80, false);
       Add('PlayerMessenger', ftString, 80, false);
       Add('Datum', ftDateTime, 0, false); // NICHT ETWAR TIMESTAMP das gibt es nicht...
     end;
   end;
  end;
end;