[XIO]

Затем тупо перекатал с вышеуказаной странички:

Код:

IdSMTP1.Connect(10000);
Msg.Subject:='тема сообщения';
Msg.Recipients.EMailAddresses:='XXX';
Msg.From.Address:='XXX';
Msg.Body.Text:='текст сообщения';
Msg.Date:=StrToDate('01.12.2004');
Msg.From.Address:='XXX';
Msg.From.Name:='XXX';
If IdSMTP1.Connected = true then IdSMTP1.Send(Msg);
IdSMTP1.Disconnect;
end;

Спасибо за отзыв, сейчас попробую сделать как Вы.
B действительно все получилось! Спасибо ещё раз за помощь! =)