enviar un email desde delphi a hotmail o gmail

[abraham]

With IdMessage Do
Begin
Body.Clear;
Body.Add(Edit1.Text);
From.Text := '[email protected]';
Recipients.EMailAddresses := '[email protected]';
Subject := 'Monitoreo';
Priority := TidMessagePriority(mpHighest);
End;
With IdSMTP1 do
Begin
Username :='Jaime'; //nombre_usuario_cta_correo_saliente;
Password := '12345'// clase_cuenta;
Host := 'servidor smtp';
Port := 25;
try
Connect;
Try
Send(IdMessage);
Finally
Disconnect;
End;
ShowMessage('Se envio correo en forma correcta');
Except
On E: EIdProtocolReplyError Do
ShowMessage('E-Mail no se ha podido enviar');
On E: EFOpenError Do
Begin
ShowMessage('E-Mail no se ha podido enviar' + #13 +
'Fichero Adjunto desconocido o erróneo.');
end;
On E: EIdSocketError Do
Begin
ShowMessage('E-Mail no se ha podido enviar'+ #13 +
'Host desconocido o incorrecto.');
end
Else
ShowMessage('Fallo en el envio de email');
End;
If Connected Then Disconnect;
End;