params:=TStringList.Create;     
responseres:=TStringList.Create;
params.Add('Login=Login');
params.Add('Domain=mail.ru');
params.Add('Password=antichat');
responseres.Text:=http1.Post('http://win.mail.ru/cgi-bin/auth',params);
if Pos('logout',responseres.Text)>0 then  //проверяем залогинились или нет...
begin
ShowMessage('Авторизовались');
end
else
  ShowMessage('Ошибка! Проверьте правильность введенных данных!!!')
end;