Hola,
Cabe añadir acaso que el ejemplo que refiere
Sotrono puede simplificarse, gracias a un método "rápido" que para enviar correos cuenta el componente "TIdSmtp". Tal que así:
Código Delphi
[-]
var
smtp: TIdSMTP;
begin
smtp := TIdSMTP.Create(Self);
try
smtp.QuickSend(
'smtp.servidor.com',
'Asunto del correo',
'correo@destino.com',
'correo@remitente.com',
'Cuerpo del mensaje');
finally
smtp.Free;
end;
end;