function RecordToCSV(dbf :integer; qt, dlm: string): string;

RecordToCSV returns the last read record in CSV format.
You can define a quotation mark and delimiter.

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); WriteLn( RecordToCSV( dbf, '"', ',') ); end; CloseBase(dbf); end; end.