1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

with frm_main.tbl_kopie do begin
  active := false;
  DatabaseName := SaveDialog1.FileName;
  TableName := dateiname(SaveDialog1.FileName);
  TableType := ttParadox; // Undefinierter Bezeichner: 'ttParadox'
  with FieldDefs do begin
    clear;
    Add('ID', ftAutoInc, 0, false); // Undefinierter Bezeichner: 'ftAutoInc'
    Add('Name', ftString, 33, false); // Undefinierter Bezeichner: 'ftString'
  end;
  CreateTable;
end;