[eagleboy]

программа для отправки сообщений из делфи
Я ее откомпелировал, но при запуске она дает иксепшен
Я делал тросировку но ошибка появляется где то выделено красным
procedure TForm1.Button2Click(Sender: TObject);
begin
IdSMTP1.Host := 'mail.tc-exe.ru';
IdSMTP1.AuthenticationType:=atNone;
IdSMTP1.Connect();
if IdSMTP1.Connected then
begin
Memo1.Lines.Add('Удачное соединение');
Button3Click(Sender);
end
else Memo1.Lines.Add('Не удача');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Msg.Subject:='hhhhhb';
Msg.Recipients.EMailAddresses:='eagleboy@rambler.r u';
Msg.From.Address:='eagleboy@rambler.ru';
Msg.Body.Text:='everithing is OK';
Msg.Date:=StrToDate('01.12.2004');
IdSMTP1.Send(Msg); IdSMTP1.Disconnect;
end;
Если знаете почему не пожалейте времени ответьте пожалуйста
Я долго уже бьюсь с ней и не знаю что делать
Надеюсь на вашу помошь
Зарание спасибо!
Студент МИРЭА первый курс