E-mail w Delphi 2007

Umie ktoś wysłać e-mail bez wiedzy użytkownika przy pomocy Delphi 2007 Professional ? Wprawdzie jest artykuł o tym ale mi jakoś kompletnie nie wychodzi, przy połączeniu wychodzi timeout. Podejrzewam że to przez logowanie do serwera poczty a mianowicie autoryzację, dla przykładu załóżmy że mam pocztę na o2 o adresach [email protected] i [email protected] z hasłami od i do, jak powinny wyglądać ustawienia IdSMTP?

A może są lepsze darmowe komponenty do tego niż Indy10 ?

W efekcie moich prób zawsze dostaję taki błąd:

First chance exception at $7C812AFB. Exception class EIdSocketError with message 'Socket Error # 10060
Connection timed out.'. Process Project2.exe (2524)

Obecnie mój kod ma postać taką:

  StatusMemo.Clear;

  //setup SMTP
  SMTP.Host := ledHost.Text;
  //SMTP.Port := 25;

  //setup mail message
  MailMessage.Body.Append('treść');
  MailMessage.From.Name := 'nadawca';
  MailMessage.From.Address := '[email protected]';
  MailMessage.Recipients.EMailAddresses := '[email protected]';
  MailMessage.Subject := 'temat';
  MailMessage.Organization:='blabla';
  MailMessage.Encoding:=meMime;

  SMTP.UserName := 'junk6';
  SMTP.Password := 'junkmail';
  SMTP.Host := 'poczta.o2.pl';
  SMTP.AuthType := atDefault;
  SMTP.ReadTimeout:=600000;

  //send mail
  try
    try
      SMTP.Connect();
      SMTP.Send(MailMessage);
    except on E:Exception do
      StatusMemo.Lines.Insert(0, 'ERROR: ' + E.Message);
    end;
  finally
    if SMTP.Connected then SMTP.Disconnect;
  end;

Właśnie odkryłem że nawet programami które "powinny" działać nie da się zalogować do o2 czy gmaila, więc gdzie mogę znaleźć jakiś serwer pocztowy do którego mi się uda?

mi sie udawalo do onetu podpiac za pomoca Indy

http://poczta.onet.pl/pomoc/13224,0,27,6,14020,37,0,0,pomoc.html

Okazało się że problem leżał gdzie indziej, dzięki tak czy inaczej. Powyższy kod jest ok.