Delphiden SSL ile mail gönderme

[nuran]

Delphiden SSL kullanarak mail göndermeye çalışıyorum
Ancak
'Raised exception class EIdSMTPReplyError with message ' hatası alıyorum.
Güvenlik duvarı kapalı.
Hatanın nedeni ne olabilir..


IdSMTP := TIdSMTP.Create(nil);
ekm:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'mail.ini');
try
IdSMTP.host:=ekm.Readstring('Form','host','');
IdSMTP.username:=ekm.Readstring('Form','username','');
IdSMTP.Password:=ekm.Readstring('Form','Password','');
IdSMTP.port:=ekm.ReadInteger('Form','Port',1);
IdSSL := TIdSSLIOHandlerSocketOpenSSL.Create;

fromadres := 'nn.com'; toadres := 'nn.com';
IdMessage:=TIdMessage.Create(nil);
IdMessage.From.address := fromadres;
IdMESSAGE.Recipients.EMailAddresses:= toadres;
IdMESSAGE.CClist.EMailAddresses:= fromadres;
IdMessage.Subject:= 'deneme1';
IdMessage.Body.text:='deneme2';
IdSMTP.Connect;
IdSMTP.Authenticate;
try
IdSMTP.Send(IdMessage);

ShowMessage('Mail Gönderildi.');

finally
IdSMTP.Disconnect;
end;

[emrahgs]

Çok Fazla Hatırlamıyorum ama Daha Önce Yaptığım bir Proje SSl ile mail gönderiyordu
o projenin ssl ile ilgili bölümü şu şekilde;

IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvSSLv2 ;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode := sslmClient;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.VerifyDepth := 2;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.VerifyMode := [];
IdSSLIOHandlerSocketOpenSSL1.Host := IdSMTP1.Host;
IdSSLIOHandlerSocketOpenSSL1.Port := IdSMTP1.Port;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvSSLv3;
IdSMTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1 ;
IdSMTP1.UseTLS := utUseImplicitTLS ;

[nuran]

Gönderdiğiniz SSL ile ilgili olan eklemeleri yaptım , ANcak
'Raised exception class EIdSMTPReplyError with message '

hatasını almaya devam ediyorum..