program DatabaseAccess;

var
  sURL: string;
  MyArray: array[1..100] of string;
  nCount : integer;

procedure OnDocumentComplete(URL : string);
begin
  NewbieScriptEnd;
end;

begin
  nCount := 1;
  OpenDBTable('Paginas', 'Companya');
  while not(EndOfDBTable) do
    begin
      sURL := DBGetField('URL');
      Showmessage(sURL);
      MyArray[nCount] := sURL;
      DBTableNext;
    end;
  CloseDBTable;
end.