var
  dbf :integer;
begin
  dbf := OpenBase( 'filename.dbf' );
  if dbf <> 0 then
  begin
      ClearRecord(dbf);
      SetValue(dbf, 0, 'some string', 123.45);
      InsertRecord(dbf, 2);
    end;
    CloseBase(dbf);
  end;
end.