如何解决邮件乱码,INDY9(30分)

我已经将原因找出来的,不是代码有问题,是因为端口的原因.
INDY9的TidMessage作为接收邮件的容器,接收是文字都变成乱码,包括附件的文件名,造成保存附件时出错,如何才能解码的?

我不知道这点会不会存在差异，
procedure TForm1.Button8Click(Sender: TObject);
var
TheImap : TIdImap4;
begin
TheImap:= TIdImap4.Create(nil);
。。。。
procedure TIMAP4ReceMail.Connect;
begin
IdImap4 := TIdImap4.Create(nil);

TO zywcd:控件创建没有问题,是IMAP4不能用那个端口的问题,除开端口就没有问题了,如果有时间,帮我看看已经修改了的问题.