[BDWONG]

Hola me he estado probando la libreria synapse con lazarus y me encontre con un ejemplo en la wiki de freepascal el ejemplo que se llama "Sending email" asi que me lo copie para probarlo pero no me deja enviar el mensaje, no se exactamente cual es el error o porque no puedo enviarlo

Miren les dejo el ejemplo como lo estoy usando:

Código Delphi [-]
function SendMail(User, Password,MailFrom, MailTo,SMTPHost, SMTPPort: string;MailData: string): Boolean;
var
  SMTP: TSMTPSend;
  sl:TStringList;
begin
  Result:=False;
  SMTP:=TSMTPSend.Create;
  sl:=TStringList.Create;
  try
    sl.text:=Maildata;
    SMTP.UserName:=User;
    SMTP.Password:=Password;
    SMTP.TargetHost:=SMTPHost;
    SMTP.TargetPort:=SMTPPort;
    SMTP.AutoTLS:=true;   //cuando comento esta linea y uso el puerto 25 si me logea
    if Trim(SMTPPort)<>'25' then
      SMTP.FullSSL:=true; // if sending to port 25, don't use encryption
    if SMTP.Login then
    begin
      result:=SMTP.MailFrom(MailFrom, Length(MailFrom)) and  //pero falla aqui
         SMTP.MailTo(MailTo) and
         SMTP.MailData(sl);
      SMTP.Logout;
    end;
  finally
    SMTP.Free;
    sl.Free;
  end;
end;
var
  miEmail,emailEnviar,password:string;
begin
   miEmail:='miCorreo@hotmail.com';
   password:='password';
   emailEnviar:='otroCorreo@hotmail.com';

   if SendMail(miEmail,password,miEmail,emailEnviar,'smtp.live.com','465','hola soy synapse') then
     WriteLn('Mensaje envidado correctamente')
   else
    WriteLn('Fallo al enviar el mensaje');

    ReadLn;
end.

Algo curioso es que cuando pongo el puerto 25 y descomento la linea

Código Delphi [-]
 SMTP.AutoTLS:=true;

se logra logear pero no aun asi no me deja enviar el mensaje y se queda en la linea

Código Delphi [-]
SMTP.MailFrom(MailFrom, Length(MailFrom))

no se si alguien sabe porque es mi error o me esta faltando algo?