Ok, Im lost :-(

Where is my mistake:


-------------------------
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,
Dialogs, Mail2000, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
POP: TPOP2000;
Msg: TMailMessage2000;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin
POP.UserName := 'willistas';
POP.Password := '12345';
POP.Host := 'mail.pop.com.br';
POP.Port := 110;
pop.Connect;
pop.Login;
POP.RetrieveHeader(1);
showmessage(msg.Subject);
end;

end.
-----------------------------

Someone could help me?

Tks

Willian