var
params, responseres : tstringlist;
begin
params := TStringList.Create;
responseres := TStringList.Create;
try
params.Add('ulogin=ЛОГИН');
params.Add('pass=ПАРОЛЬ');
responseres.Text := IdHTTP1.Post('http://www.wmmail.ru/index.php',params);
if Pos('ТУТ НАДО ТЕКС СО СТРАНИЦЕ ПОСЛЕ АВТОРИЗАЦИИt',responseres.Text)>0 then
ShowMessage('Авторизовались!')
else
ShowMessage('Авторизация не удалась!');
finally
params.free;
responseres.free;
end;