Tabellen zur laufzeit erstellen

[Uwe 111]

Hallo

Ich habe ein Problem mit den Feldgrößen? Könnte mir jemand mal Helfen?

Delphi-Quellcode:

      WITH table1 DO BEGIN
    DatabaseName:='DB';
    TableName:= 'Kunden.DB';
    Tabletype:=ttParadox;
    END;
    IF NOT table1.exists THEN BEGIN
      with table1 do begin
        Active    := False;
          with FieldDefs do begin
           Clear;
           Add('ID', ftAutoinc,0, True);
           Add('Vorname', ftString, 30, FALSE);
           Add('Nachname', ftString, 30, FALSE);
           Add('Strasse', ftString, 50, FALSE);
           Add('PLZ', ftInteger, 0, FALSE);
           Add('Ort', ftString, 20, FALSE);
           Add('Datum', ftDate, 0, False);
           Add('Image', ftGraphic, <---- Hier weis ich nicht weiter
      end;
         with IndexDefs do begin
           Clear;
           Add('iID', 'ID', [ixPrimary,ixUnique]);
           Add('secVorname', 'Vorname', [ixCaseInsensitive]);
         end;
          CreateTable;
          Active := True;
        end;
      end;
    end;

Vielleicht auch für die anderen Feldtypen posten?

Mfg
Uwe 111