OpenBase opens a dbf file. It returns a non-zero value if the file was opened successfully or 0 if the file cannot be opened.
var dbf :integer; begin dbf := OpenBase( 'filename.dbf' ); begin // some code CloseBase(dbf); end; end.