用winsocket开发pop3时遇到的问题（可能是个小问题，也可能不是）

[allexit]

在delphi5中，程序能够与邮件服务器建立面向链接的流，但在发送用户名确认时出现了错误，
WriteBuffer := 'USER ' + UserName + '\r\n';
if ( TheStream.WaitForData (TimeOut) ) then
//TheStream : TWinSocketStream
begin
if ( TheStream.Write (WriteBuffer, length (WriteBuffer) + 1 ) = 0 ) then
begin
showmessage ( '网络连接超时');
POP3_disconnectClick (Sender);
end;

ReadCount := TheStream.Read (ReadBuffer, 1024 );
if ( ReadCount = 0 ) then
begin
showmessage ( '网络连接超时');
POP3_disconnectClick (Sender);
end;
end;

memo1.Lines.Add (ReadBuffer[0] + ReadBuffer[1] + ReadBuffer[2] + ReadBuffer[3]);

最后的结果是从流中读到的内容是乱码，这说明服务器根本没收到写过去的内容。我不知我错在哪了。请高手指教。

[kxy]

www.winshoes.com