1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

    with TbSynctab2 do
    begin
      Active := False;
        DatabaseName := listbox11.items[17];
        TableName := 'Lsynctab'+ inttostr(j)+ '.dbf';
        TableType := ttDefault;  //ttFoxPro,  ttDBase;
        FieldDefs.Clear;
        FieldDefs.Add('Ident_Nr',   ftInteger,   0, False);
        FieldDefs.Add('Name',       ftString,   25, False);
        FieldDefs.Add('Vorname',    ftString,   25, False);
        FieldDefs.Add('Kuerzel',    ftString,    5, False);
        FieldDefs.Add('Klasse',     ftString,    5, False);
        FieldDefs.Add('Gebdat',     ftDate,      0, False);
        FieldDefs.Add('Telefon',    ftString,   30, False);
        // IndexDefs.Clear;  IndexDefs.Add('PrimaryIndex', 'Klasse', NewIndexOptions);
      CreateTable;
      showmessage('Tabelle '+ TbSynctab2.tablename+ ' ist erstellt');
    end;

    // Ich fülle mit z.B.
    TbSynctab2.fieldbyname('GEBDAT').asdatetime := TbLk.fieldbyname('GEBDAT').asdatetime;

    // weil  .asdate nicht geht                    

1:

 TbSynctab2.fieldbyname('GEBDAT').AsString:= DatetoStr(TbLk.fieldbyname('GEBDAT').AsDateTime);