[userlazarus]

En el TEdit pongo por ejemplo ftString y me sigue dando tipo de datos
erroneo.
Utilizo lo 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',Edit2.Text,80,True);
      Add('Apellidos',Edit3.Text,80,True);
      End;
     basedatos.CreateTable;
     basedatos.Open;
     basedatos.Close;
  finally
    basedatos.Free;
  end;
end;