procedure TForm1.Button1Click(Sender: TObject);
var
s,s1,i:integer;
cod:string;
params, responseres : tstringlist;
begin
params := TStringList.Create;
responseres := TStringList.Create;
try
params.Add('Login=wolf12309');
params.Add('Domain=mail.ru');
params.Add('Password=1234567');
responseres.Text := IdHTTP1.Post('http://win.mail.ru/cgi-bin/auth',params);
if Pos('logout',responseres.Text)>0 then
responseres.Text :=IdHTTP1.Post('http://my.mail.ru/my/search?search=1&typeSimple=1&type=1&query=&firstna me=&country=24&lastname=&city=25',params);
if Pos('message&to=',responseres.Text)<>0 then
ShowMessage('Поиск начат!');
for i:= 0 to 2 do //тут нихрена не получаеться
begin
s:=pos ('message&to=',responseres.Text);
s1:=pos ('ru" title',responseres.Text);
memo2.text:=copy(responseres.Text,s+11,s1-s-9);
end;
finally
params.free;
responseres.free;
end;
end;