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

GetStr reads the specified field from internal memory. Be careful. The first field has a number 0 and the last field has a number FieldCount-1.
You have to read a record with ReadRecord before using GetStr.
It returns a string for all fields (Character, Numeric, Date etc).

var dbf :integer; r :integer; begin dbf := OpenBase( 'filename.dbf' ); if dbf <> 0 then begin for r := 0 to RecCount(dbf)-1 do begin ReadRecord(dbf, r); showmessage( GetStr(dbf, 0) ); end; CloseBase(dbf); end; end.