[pharaonhx]

eh estado viendo ejemplos pero no me devuelve nada estoy utilizando este codigo

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Psock, NMsmtp, IdBaseComponent, IdComponent, IdIPWatch;
type
TForm1 = class(TForm)
NMSMTP1: TNMSMTP;
Button1: TButton;
IdIPWatch1: TIdIPWatch;
Label1: TLabel;
Button2: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Text:=idipwatch1.LocalIP;
nmsmtp1.Host:='mx3.hotmail.com';
nmsmtp1.UserID:='flaco20998';
Nmsmtp1.Connect;

NMSMTP1.PostMessage.FromAddress := 'pharaonhx@hotmail.com';
NMSMTP1.PostMessage.ToAddress.Text := 'flaco209100@hotmail.com';
NMSMTP1.PostMessage.Body.Assign(memo1.Lines);
NMSMTP1.PostMessage.Subject := 'Assunto do Email';
NMSMTP1.SendMail; // Envia o email
showmessage('enviando mail...');

end;
procedure TForm1.Button2Click(Sender: TObject);
begin
label1.Caption:= idipwatch1.LocalIP;
end;
end.