anchor.diff:    FSSLConnection:= false;
     FTLSConnection:= false;
     FReceivedMails := TObjectList.Create(true);
  +  FAuthentication:= paBasicAuthentication;
   end;
   
   destructor TGetMailPop3.Destroy;
  
positive.code: 
      tmpPop3.ConnectTimeout:= 5000;
  
      tmpPop3.AuthType := patUserPass;
      if FUserName <> '' then
        tmpPop3.Username:= FUserName;
      if FPassword <> '' then
        tmpPop3.Password:= FPassword;
  //      InitSASL(tmpPop3, FUserName, FPassword);
  //      tmpPop3.AuthType:= patSASL;
  
      error:= false;
      try
        tmpPop3.Connect;
        try
          numMessages := tmpPop3.CheckMessages;
          For i := 1 to numMessages do
  
negative.code:   Result := Self;
  end;
  
  function TGetMailPop3.SetAuthentication(const aAuthentication: TPop3Authentication): TGetMailPop3;
  begin
    FAuthentication:= aAuthentication;
    Result := Self;
  end;
  
  function TGetMailPop3.SetSSLConnection: TGetMailPop3;
  begin
    FSSLConnection:= true;
  