procedure TForm1.Button1Click(Sender: TObject);
var page:string;
    param:tidmultipartformdatastream;
begin
if (Length(Edit1.Text) > 0) and (Length(Edit2.Text) > 0) then
begin
  param:=tidmultipartformdatastream.Create;
  param.AddFormField('Login',Edit1.Text);
  param.AddFormField('Domain','mail.ru');
  param.AddFormField('Password',Edit2.Text);
  param.AddFormField('page','http://wap.my.mail.ru');
    page:=W.Post('http://my.mail.ru/cgi-bin/auth?noclear=1',param)
  if pos('Неверное имя пользователя или пароль',page) > 0 then
    Statusbar1.Panels[0].Text:='Wrong password!'
  else
    Statusbar1.Panels[0].Text:='Logged!'
  end;
end;