Mysteriöser Compilerfehler

[Klaus01]

.. und wenn Du das ganze ohne "with" probierst?

Delphi-Quellcode:

 
if FileExists(IBDataSet1.Database.DatabaseName) then
  IBDataSet1.Open
else
  begin
    IBDataSet1.FieldDefs.Clear;
    IBDataSet1.FieldDefs.Add('media', ftString, 3);
    IBDataSet1.FieldDefs.Add('author', ftString, 30);
    IBDataSet1.FieldDefs.Add('title', ftString, 40);
    
    IBDataSet1.CreateDataSet;
  end; { von else }

  IBDataSet1.LoadFromFile(IBDatabase1.DatabaseName);

end; { von FormCreate }

Grüße
Klaus