// Кинуть на форму компонент IdSMTP1

...

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdMessageClient, IdSMTP, StdCtrls, idMessage, IdEMailAddress;

...

procedure TForm1.Button1Click(Sender: TObject);
var
M: TIdMessage;
begin
M := TIdMessage.Create(Form1);

M.Body.Add('Типа первая строчка собщения');
M.Body.Add('Типа вторая строчка собщения');
M.From.Text := '"Рустик" '; //отправитель
M.Recipients.Add;
M.Recipients.Items[0].Text := '"Тест" '; //Получатель
M.Subject := 'Ну чо? потестим? =)'; //Тема письма

IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.Host := 'uacity.com';
IdSMTP1.Username := 'boris';
IdSMTP1.Password := '1234'; // - ну свой пароль я те не выдам :-Р
IdSMTP1.Connect();
if IdSMTP1.Connected then
begin
IdSMTP1.Send(M);
end;
IdSMTP1.Disconnect;
end;