Erro TLS

[Demostenes Damasio B Jr]

Olá estou com este tipo de problema (220 2.0.0 SMTP server ready')  . Sendo que ,  consigo enviar em um projeto e em outro , que modifiquei com esta finalidade , não consigo   : 

 

  Erro no ReadResult na função abaixo :

 

 function TSMTPSend.StartTLS: Boolean;

begin

  Result := False;

  if FindCap('STARTTLS') <> '' then

  begin

    FSock.SendString('STARTTLS' + CRLF);

    if (ReadResult = 220) and (FSock.LastError = 0) then

    begin

      Fsock.SSLDoConnect;

      Result := FSock.LastError = 0;

    end;

  end;

end;

[Juliomar Marchetti]

Bom dia!

dll diferente em projetos e pastas!