program DBFindRecord;
// Opens a Database table and searches for a record
// given the field name and it's value

var
  str : string;
  
{ Process events here }
procedure OnDocumentComplete(URL : string);
begin
end;

{ This is the main program body. }
begin
  OpenDBTable('Paginas', 'Companya');
  if DBTableFindRec('Name', 'RAMOS') then
    begin
      str := DBGetField('Description');
      str := str + ' ' + DBGetField('Location');
      ShowMessage(str);      
    end;
  CloseDBTable;
end.