procedure CloseBase(dbf :integer);

CloseBase closes a dbf file which was opened with OpenBase function.
It does not have a return value.

var dbf :integer; begin dbf := OpenBase( 'filename.dbf' ); if dbf <> 0 then begin // some code CloseBase(dbf); end; end.