Strange message when tidsmtp sends an email!

Strange message when tidsmtp sends an email! Delphi/Windows SDK/API
Http://www.delphi2007.net/DelphiNetwork/html/delphi_20061214202002126.html
I used Indy's tidsmtp and tidmessage to send an email, but the bad secquence of command error occurred! My Code Yes:
Procedure tfrmemail. speedbutton7click (Sender: tobject );
VaR MSG: tidmessage;
Begin
MSG: = tidmessage. Create (SMTP );
MSG. Clear;
MSG. Subject: = edtsubject. Text; // subject topic
MSG. Body. Assign (memobody. lines); // body content
MSG. From. Text: = trim (edtfrom. Text); // sender
MSG. Recipients. emailaddresses: = trim (edtmailto. Text); // recipient
SMTP. HOST: = 'smtp .163.com ';
SMTP. authenticationtype: = atlogin;
SMTP. Username: = 'xaguobo ';
SMTP. Password: = '********'; // here, I entered the login password for my 163 mailbox.
SMTP. Port: = 25;
Try
SMTP. Connect (-1); // I tracked the connection to the server
Try
SMTP. Send (MSG );
Showmessage ('email sent ');
Finally
SMTP. Disconnect;
End;
Except
On E: exception do
Showmessage ('mail failed message: '+ E. Message );

End;

End;

Please advise me!