.. 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