Fehlermeldung bei Programmstart

[Tim.exe]

Also wenn dan ist ja nur der code im OnCreate interessant:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var verz: String;
begin
     verz := ExtractFilePath(ParamStr(0));
     Table1.Active := False;
     try
     Table1.Databasename := verz;
     Table1.TableName := 'jaab.db';
     Table1.Active := True
     except
     MessageBeep(0);
     ShowMessage('Die Tabelle "jaab.db" befindet' + #13#10 + ' sich  nicht im aktuellen Verzeichnis!')
     end;

Und wie gesagt, vorhin ging noch alles und im OnCreate hatte ich ja auch nichts geändert...

Gehen tut ja auch alles, das Programm wird gestartet und es funktioniert, nur eben die Fehlermeldung kommt als erstes...