idSMTP не пойму где ошибка

[JRcoker]

procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Host := 'smtp.mail.ru';
IdSMTP1.Port := 25;
IdSMTP1.Username := 'test-smtp'; //специально зарегил для проверок
IdSMTP1.Password := '123456';
IdMessage1.Subject := 'Test';
IdMessage1.Body.Text := 'Preved medved';
IdMessage1.Recipients.Add;
IdMessage1.Recipients.Items[0].Text := 'goth-book@list.ru';
IdSMTP1.Connect;
IdSMTP1.Authenticate;
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;
end;

компилируется нормально но при нажатие на кнопку вылазиет окно

Debugge Exception Notification
Project Project1.exe raised exception class EidSMTPReplyError wich message

в окне жму Continue,вылезает пусто окно с ошибкой только оно пусто не заголовка не текста...И не чего не приходит...Не понимаю в чем проблема...

[Квэнди]

EidSMTPReplyError wich message

а что дальше- то в ошибке написано ?

[JRcoker]

Нечего...Пусто...Вот по этому и не пойму...

[JRcoker]

Решил использовать другой код ругается на SMTP.AuthenticationType:=atLogin;

procedure TForm1.Button4Click(Sender: TObject);
begin
  SMTP.Host:='smtp.mail.ru'; // адресс почтового сервера
  SMTP.Port:=25;    // порт по которому будет осуществляться подключение
  SMTP.Username:='test-smtp';  // логин пользователя
  SMTP.Password:='123456';     // пароль пользователя
  SMTP.AuthenticationType:=atLogin;
 with IdMessage do
     begin
      Body.Assign(Memo1.Lines);
      From.Text := 'test@58r.ru';
      Recipients.EMailAddresses := 'goth-book@list.ru';
      Subject := 'Programmersclub.ru';
      end;
   SMTP.Connect;
   try
  showmessage('подключился');
  SMTP.Send(IdMessage);
   finally
      SMTP.Disconnect;
   end;
end;

[DCC Error] Unit1.pas(45): E2003 Undeclared identifier: 'AuthenticationType'
[DCC Error] Unit1.pas(45): E2003 Undeclared identifier: 'atLogin'
[DCC Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas'

[Квэнди]

Кстати, а кто будет за вас заполнять поле "From" ? )

IdSMTP1.Host := 'smtp.mail.ru';
IdSMTP1.Port := 25;
IdSMTP1.Username := 'test-smtp'; //специально зарегил для проверок
IdSMTP1.Password := '123456';
IdMessage1.From.Address:='test-smtp@mail.ru';
IdMessage1.Subject := 'Test';
IdMessage1.Body.Text := 'Preved medved';
IdMessage1.Recipients.Add;
IdMessage1.Recipients.Items[0].Text := 'goth-book@list.ru';
IdSMTP1.Connect;
IdSMTP1.Authenticate;
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;

Вот этот код у меня отработал.

[JRcoker]

Ой...Извиняюсь...Да не доглядел...Но всё ровно спасибо,я уж думал что у меня проклятие с SMTP)...