Crear tabla DB

[userlazarus]

Hola,

Intento crear una tabla Dbf y me da error en el tipo de campo (este lo recojo de un TEdit. El código que empleo es el siguiente:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
     basedatos := TDbf.Create(nil);
     try
     basedatos.TableLevel := 4
     basedatos.Exclusive := True;
     basedatos.TableName := Edit1.Text+'.dbf';
     With basedatos.FieldDefs do begin
      Add('nombre',Edit1.Text,80,True);
      Add('Apellidos',Edit2.Text,80,True);
      End;
     basedatos.CreateTable;
     basedatos.Open;
     basedatos.Close;
  finally
    basedatos.Free;
  end;
end;

Gracias