procedure TForm1.Button1Click(Sender: TObject);
begin
idSmtp1.Host:='smtp.yandex.ru';
idSmtp1.Port:=25;
idSmtp1.Username:='iceeend';
idSmtp1.Password:='xxx';
idMessage1.Body.Text:=Memo1.Text;
idMessage1.From.Text:='iceeend@yandex.ru';
idMessage1.Recipients.EMailAddresses:='jagguar@bk.ru';
idMessage1.Subject:='Tema';

idSmtp1.Connect();
if idSmtp1.Connected=true then
idSmtp1.Send(idmessage1);
idSmtp1.Disconnect
end;

end.