TDBF, Erstellen von DBase III+ Dateien

[waldforest]

Hallo,
ich finde meinen eventuellen Fehler nicht.

Anbei eine Demo. sobald ich dBase III Plus die Datei öffnen will erhalte ich die Fehlermeldung

"Keine dBase Datenbank"

Code:

procedure TForm1.btn_DateiErstellenClick(Sender: TObject);
begin
if dlg_saveDBF.Execute then
  begin
  With dbf_Dbase do begin
    Close;
    TableLevel := 3;
    Exclusive := True;
    FilePath := ExtractFilePath(dlg_saveDBF.FileName);
    TableName := ExtractFileName(dlg_saveDBF.FileName);
    with FieldDefs do begin
      Clear;
      Add('Field1',ftString,10,False);
      Add('Field2',ftInteger,0,False);
      Add('Date',ftDate,0,False);
    end;
    CreateTable;
  end;
  end;
end;