uses IDSMTP, IDMESSAGE; //подключаем компоненты к юниту нашу

procedure sendmail; //процедура
var: ms : TIDMESSAGE;
IDSMTP1: TIDSMTP;
begin
idsmtp1:=TIDSMTP.create(nil); 
ms:=TIDMESSAGE.create(nil);

idSmtp1.host:='smtp.mail.ru'; //если мэйлер у нас mail.ru
idsmtp1.port:=25; //порт 2525 дополнительный
idsmtp1.Username:='твой логин';
idsmtp1.Password:='твой пасс';
ms.body.add('edit1: '+edit1.text); //текст edit1
ms.body.add('edit2: '+edit2.text);//текст edit2
ms.body.add('edit3: '+edit3.text);//текст edit3

ms.From.Text:='твой логин'; //адрес отправителя
ms.Recipients.EMailAddresses:='m-unit@mail.tj'; // адрес получателя
ms.Subject:='*~*'; //тема сообщении
idsmtp1.Connect(); //коннектимся
if idsmtp1.Connected=true then //усли коннектились то
idsmtp1.Send(ms); //отправляем письмо
idsmtp1.Disconnect; //диссконектимся

idsmtp1.free; 
ms.free; //типа дестрой =))

showmessage(':)'); //результат :-)
end;

sendmail;