Wysyłanie maila w Delphi w INDY

Witam, piszę program który będzie wysyłał mi wiadomość na maila w Delphi 2007

Używam gotowego kodu:

procedure TForm1.Button1Click(Sender: TObject);
begin
   IdMessage1.From.Address:= '[email protected]'; //nadawca Twój mail
   IdMessage1.Recipients.EMailAddresses:= '[email protected]'; //odbiorca
   IdMessage1.From.name:= 'od Franka';  //imię nadawcy
   IdMessage1.Subject:= 'pozdrowionka'; //temat
   IdMessage1.Body.Append('to jest tekst maila'); //treść
   //parametry logowania na Twój serwer SMTP...
   IdSMTP1.Host:= 'poczta.o2.pl';
   IdSMTP1.Username:= 'user';
   IdSMTP1.Password:=  'haslo';
   Try
       //połaczenie i wysłanie...
       label1.Caption:= 'łączenie...'; //tylko dla podglądu
       Application.ProcessMessages;
       IdSMTP1.Connect;
       label2.Caption:= 'wysyłanie...'; //tylko dla podglądu
       IdSMTP1.Send(IdMessage1);
       label3.Caption:= 'mail został wysłany'; //tylko dla podglądu
       Status:= True;
       {jeśli dasz finally to przy błedzie bedzie właściwa uwaga - ale skoro
       user ma niewiedzieć o wysyłce maila to musi być jak ponizej}
     except
       Status:= False;
       label1.Caption:= 'Błąd !'; //tylko dla podglądu
       if IdSMTP1.Connected then IdSMTP1.Disconnect;
     end;
   if IdSMTP1.Connected then IdSMTP1.Disconnect;
end;

mail zostaje wysłany ale za każdym razem wywala mi błąd i aplikacja się zamyka, czy ktoś wię dlaczego?

I gdy dodam opcję

IdSMTP1.AuthenticationType:= atLogin; //włączona opcja uwierzytelniania to nie mogę skompilować programu ponieważ wywal mi błąd, ale działa to w Delphi 7.

Proszę o pomoc jak wysłać prawidłowo maila w Delphi 2007?

dodanie znaczników <code class="delphi"> - fp

Jaaaakiiiiii błąd? opuszcza ręce z braku sił

1. Debugier z Delphi ci krasnale podwędzili?
2. Na googlach już bana zarobiłeś?
3. Indy ma przykłady w tym z wysyłaniem maila wraz z załącznikami
4. Wpisz w wyszukiwarce tego forum: "Indy mail"