Я исрользовал компоненты TIdSMTP и TIdMessage (вкладки Indy Clients и Indy Misc). Код выглядит так:

procedure SendMail;
var
LSMTP: TIdSMTP;
LMsg: TIdMessage;
x: TIdAttachment; //Это аттач письма, можешь удалить, если не надо
//Обьявлям переменные.
begin //Ну начинаем
LSMTP := TIdSMTP.Create(nil); //Создаемся
LMsg := TIdMessage.Create(LSMTP);
with LMsg do
begin
Subject := 'Тема'; // Здесь вводим тему
Recipients.EMailAddresses := 'blabla@yandex.ru' ; // куда будет послано письмо...

From.Text := 'karkar67@mail.ru'; //От кудыкина будет письмо
Body.Add('Текст письма');

x:=TIdAttachment.Create(LMsg.MessageParts,'Пут� � к файлу аттача'); //не нужен аттач - стирай всю строку




end;
with LSMTP do
begin
AuthenticationType:=atNone;
Host := 'smtp.mail.ru';
Port := 25;
Username :='karkar7@mail.ru' ; //здесь происходит авторизация(как в почтовом клиенте)
Password :='loxi' ;
try
Connect; //зухель коннект!!
Send(LMsg);
except
end;
end;
FreeAndNil(LMsg);
FreeAndNil(LSMTP);

end;

Помойму прога была litlelamer'a там где можно пробывать XSS. Там можно и просто письма отправлять поищи на ачате в поиске.

__________________
-=Ok let's Go=-
-=OpenVPN=-

оки пасиб всем)

gadjet подскажи что не правильно?
Как нужно настроить эти 2 компонента?
Почта вроде бы пытается отпвиться, но ругается или на ESocketError, или на авторизацию
Наверное нужно как-то ещё компоненты настраивать?

Вот исходник, только впищити в него свои адреса, я вписывал и проверял всё на mail.ru , но без результатно

_www.perspektiva.h16.ru/email.rar
помоги плиз не могу разобраться