请问个BCB发邮件有关问题

请教个BCB发邮件问题
我是直接用控件的。TidMessage,TidSmtp
可是我的发件时间 总是比当前时间快8个小时。
我猜测该是时区问题，北京时间是GMT +8 估计发的时候是GMT。
所以显示就快了8小时。。

可是我该在哪里修改呢？ 我都找不到。。
因为我电脑设置没问题的，我自己给自己发也会快8小时。
我用的SMTP服务器 是smtp.163.com

[解决办法]
修改IdMessage.Body.Text

Delphi(Pascal) code

IdMessage.Sender := 'calserver@myorg.net';  IdMessage.From.Text := sOrgBy;  IdMessage.Subject := '[CAL] ' + sEventType;  IdMessage.Recipients.EmailAddresses := sAttendees;  IdMessage.Priority := mpHigh;  IdMessage.ContentType := 'text/plain';  IdMessage.CharSet := 'US-ASCII';  IdMessage.Body.Text :=    'Event: '      + sEventType + EOL +    'Date: '       + FormatDateTime('mm/dd/yyyy hh:nn', dtMeeting) +    EOL +    'Duration: '   + sDuration +    EOL +    'Location: '   + sLocation +    EOL +    'Organizer: '  + sOrgBy +    EOL +    'Attendees: '  + sAttendees +    EOL + EOL +    memoComments.Text;  IdSMTP.Send(IdMessage);