[PaHaNjkee]

могу свой исходник скинуть, но вот два основных компонента:
IDMessage
POP3
SMTP

вот код для онклик на кнопке в эдит1 пишешь тему в мемо1 пишешь текст:

Код:

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

        end;

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