function OpenBase(s :string): integer;

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.