function GetFieldType(dbf, f :integer): string;

var
  dbf :integer;
  r, f :integer;
begin
  dbf := OpenBase( 'filename.dbf' );
  if dbf <> 0 then
  begin
    for f := 0 to FieldCount( dbf )-1 do
    begin
      write( GetFieldName(dbf, f) );
      write(' -- ');
      write( GetFieldType(dbf, f) );
      write(' -- ');
      write(inttostr( GetFieldSize(dbf, f) ));
      write(' -- ');
      write(inttostr( GetFieldFloat(dbf, f) ));
      writeln('');
    end;
   CloseBase(dbf);
  end;
end.