почтовик

[ben95]

юзаю конструкцию

SMTP.Host:='mail.58r.ru'; // адрес почтового сервера 
   SMTP.Port:=25; // порт по которому будет осуществляться подключение 
   SMTP.Username:='test+58r.ru'; // логин пользователя 
   SMTP.Password:='12345666'; // пароль пользователя 
   SMTP.AuthenticationType:=atLogin; // тип подключения к серверу - с авторизацией 
   with IdMessage do 
      begin 
        Body.Assign(Memo1.Lines); // передача данных из memo в компонент IdMessage, для последующей отправки 
        From.Text := 'test@58r.ru'; // майл отправителя письма 
        Recipients.EMailAddresses := 'test@58r.ru'; // майл получателя письма 
        Subject := 'Programmersclub.ru'; // тема письма 

        end; 

      SMTP.Connect; // соединение с почтовым сервером 
         try 
      showmessage('Произошло подключение к серверу'); // сообщение о удачном подключении к серверу 
      SMTP.Send(IdMessage); // отправка письма на сервер 
         finally 
           SMTP.Disconnect; // разрыв соединения 
         end; end

и выдаёт ошибку
[Error] Unit1.pas(38): '.' expected but 'DO' found
в строке with IdMessage do

[vitalik007]

SMTP.Username:='test+58r.ru'; // логин пользователя
вот здесь наверное надо просто test написать так как это логин
если idMessage не компонент то его надо создать
idMessage:=TIdmessage.create

Cкорее всего ты забыл создать TIdmessage так как компилятор ожидал точку