[emeritos]

Hola estoy utilizando el codigo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject); 
begin
//indySMTP es de tipo TIdSMTP (el icono es un buzon azul)  
//mailMensaje es de tipo TIdMessage (el icono es un sobre)  
//IdSSLIOHandlerSocket1 es un componente TIdSSLIOHandlerSocket (el icono es un candadito)   



   mailMensaje.Clear;
   mailMensaje.From.Address := 'tu_email@gmail.com';
   mailMensaje.Subject := 'Asunto';
   mailMensaje.Body.SetText(Memo1.Lines.GetText);
   mailMensaje.From.Name := 'Tu Nombre';
   mailMensaje.Recipients.EMailAddresses := 'email_destino';
   indySMTP.Host := 'smtp.gmail.com';
   indySMTP.Username := 'tu_email@gmail.com';
   indySMTP.Password := 'tu_clave';
   indySMTP.Port := 465;
   indySMTP.AuthenticationType := atLogin;
   indySMTP.IOHandler := IdSSLIOHandlerSocket1;
   IdSSLIOHandlerSocket1.SSLOptions.Method := sslvSSLv23;
   IdSSLIOHandlerSocket1.SSLOptions.Mode := sslmUnassigned;
   try
       indySMTP.Connect;
       try
           indySMTP.Send(mailMensaje);
       finally
           showmessage('El mensaje se envió correctamente');
       end;
   except
       showmessage('Se produjo un fallo durante el envío del mensaje');
   end;
   if  indySMTP.Connected then
       indySMTP.Disconnect;
end;

con la indy_openssl096, aunque tambien me funciona con la indy_openssl096k.

PERO IMPORTANTE solo me funciona en el ordenador que compilo (windows 7), cuando paso el ejecutable y las dll a otro ordenador (en este caso el S.O. Windows XP) no me funciona y me sale el error de : "Could not load SSL Library", al igual que si quito las dos dll del subdirectorio del ordenador de compilacion (sale el mismo error).

Para mas informacion tambien e intentando hacer el .RES con las librerias pero no me funciona en otro ordenador.


¿Como lo puedo solucionar?

Gracias.