[Vayrus]

Код:

function TForm1.ValidMailRuEmailStatus(EMail: String): Boolean;
var
  ASource: TIdMultiPartFormDataStream;
  S { , M, N } : String;
  I, I2: Integer;
begin
  LOG(EMail);
  //
  IdHTTP1.HandleRedirects := FALSE; // Обяз-но!
  IdHTTP1.AllowCookies := FALSE;
  IdHTTP1.ReadTimeout := 10000; // !!!!!!!!
  IdHTTP1.ConnectTimeout := 10000; // !!!!!!!!!!
  //
  ASource := TIdMultiPartFormDataStream.Create;
  try
    ASource.AddFormField('action', 'login');
    ASource.AddFormField('Username', GetLogin(EMail));
    ASource.AddFormField('Domain', GetDomain(EMail));
    // GetValue обновить и использовать
    // showmessage(GetValue('', EMail, '', '@', I));
    // showmessage(GetValue('', EMail, '@', '', I));
    try
      S := IdHTTP1.Post('http://e.mail.ru/cgi-bin/passremind', ASource
        { , ms } );
    except
      // LOG('ValidWhoIsEmailStatus: POST To "'+EMail+'" Failed');
    end;
  finally
    ASource.Free;
  end;
  LOG(IdHTTP1.ResponseText);
  if idHTTP1.Connected then
  IdHTTP1.Disconnect;
  // LOG(idHTTP1.ResponseText);
  // memo1.Lines.Add(S);
  I := PosNew('Пользователь отсутствует', S);
  {if I = 0 then
  LOG('User Exists') else
  LOG('User NOT Exists');}
  I2 := PosNew('Не существует такого пользователя', S, I);
  RESULT := (I = 0) and (I2 = 0);
  //Sleep(500);
end;