Ganz blöder Fehler: Ohne das geht es natürlich nicht
Delphi-Quellcode:
procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
vdsSerNr.FieldDefs.Add('ID', ftInteger);
vdsSerNr.FieldDefs.Add('SerNr', ftString, 20);
vdsSerNr.FieldDefs.Add('Typ', ftString, 30);
end;