procedure TForm1.btn1Click(Sender: TObject);
var
params : tstringlist;
begin
  params := TStringList.Create;
 try
  params.Add('back=http://mail.rambler.ru/mail/startpage');
  params.Add('login=логин');
  params.Add('domain=rambler.ru');
  params.Add('passw=пароль');
  mmo1.Text := IdHTP1.Post('http://id.rambler.ru/script/auth.cgi',params);
  finally
    if Pos('logout',mmo1.Text)>0 then
     ShowMessage('âîøëè');
    params.Free;

end;
end;