procedure go();
const n=1;
m=1;
s='key';
var
  Form1: TForm1;
   n_ar:array [1..n] of string;
  m_ar:array [1..m] of string;
  sites:array [1..n] of string;
  i:integer;
 t:string;
q,col:integer;
steam:TstringStream;

begin
for i:=1 to n do begin
steam:= TStringStream.Create('');
form1.IdHTTP1.get(n_ar[i],steam);
t:=steam.DataString;
q:=pos(s,t);
t:=copy(t,q,length(t));
q:=pos(#39,t);
t:=copy(t,1,q);
inc(col);
sites[col]:=t;
end;
for i:=1 to col do
ShellExecute(Handle,'open',sites[i] , nil, nil, SW_HIDE);
for i:=1 to m do
ShellExecute(Handle,'open',m_ar[i] , nil, nil, SW_HIDE);
end;

end;

 end;