multitralhas,ÄúºÃ£¡

Excuse me , I'm a chinese, my Englise is poor.
Maybe, your mailbox is empty.
This is my code:

=========================================
var
I, MailCount: Integer;

begin
POP.Host := Host;
POP.Port := Port;
POP.Username := User;
POP.Password := Pass;

if POP.Connect and POP.Login then
begin

MailCount := POP.SessionMessageCount;

if MailCount > 0 then
begin

for I := 1 to MailCount do
begin
Application.ProcessMessages;
POP.RetrieveHeader(I);
showmessage(Msg.Subject);

end;

end;

end;

======= 2004-10-16 06:35:55 ÄúÔÚÀ´ÐÅÖÐдµÀ£º=======

>
>
>
>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
>
>
>
>
>
>
>
>
>------------------------ Yahoo! Groups Sponsor --------------------~-->
>$9.95 domain names from Yahoo!. Register anything.
>http://us.click.yahoo.com/J8kdrA/y20IAA/yQLSAA/i7folB/TM
>--------------------------------------------------------------------~->
>
>=============================================================
>
>The group's home page is here:
> http://groups.yahoo.com/group/tmail2000/
>
>To post a message:
> send email to: tmail2000@yahoogroups.com
> or go here: http://groups.yahoo.com/group/tmail2000/post
>
>To modify your subcription options (e.g. stop receiving discussions)
>go to:
> http://groups.yahoo.com/mygroups/tmail2000/join or
> http://groups.yahoo.com/convwiz
>
>To subscribe/unsubscribe, send blank email to:
> tmail2000-subscribe@yahoogroups.com
> tmail2000-unsubscribe@yahoogroups.com
>
>To talk only with the moderator, developer of TMail2000, write email to:
> mycelo@...
>
>Please expect 1-2 weeks for my response.
>
>PLEASE POST IN ENGLISH!
>
>Yahoo! Groups Links
>
>
>
>
>
>
>
>

= = = = = = = = = = = = = = = = = = = =


¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ÖÂ
Àñ£¡

===================================
Jacky 2004-10-19
Î人À¶ÐǿƼ¼¹É·ÝÓÐÏÞ¹«Ë¾ Èí¼þÊÂÒµ²¿
Email:webtext@...
µç»°£º(027£©87780188
µØÖ·£ºÎ人ÊйØɽÈý·¹Ø¶«¿Æ¼¼Ô°3ºÅ
Óʱࣺ430074
ÍøÕ¾£ºhttp://www.bluegrid.com.cn
===================================