MSN Protocol

Hi, ive read the documents on http://www.hypothetic.org/docs/msn/index.php and the whole MSN protocol sounds very easy, however, to implement the connection, it is seeming very difficult, the walkthrough talks about two server types, and the trouble is, i don't need much functionality in the application. I have been trying to use a TClientSocket to connect to the MSN server, and the connection seems to close, im not even sure whether the connection is set to be kept open during the session. I receive sucessfully the first reply from the server, but then when i send a session, it seems to disconnect unexpectedly.

Here's my code:

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

procedure TForm1.ClientSocket1Write(Sender: TObject;
  Socket: TCustomWinSocket);
begin
memo1.lines.add(socket.ReceiveText);
end;

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
memo1.lines.add('error code:'+inttostr(errorcode));
end;

procedure TForm1.ClientSocket1Connecting(Sender: TObject;
  Socket: TCustomWinSocket);
begin
memo1.lines.add('Connecting...');
end;

function sendcommand(command:string):boolean;
begin
sleep(1000);
form1.clientsocket1.Socket.SendText(command+#13#10);
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
memo1.lines.add('Connected');
sendcommand('VER 1 MSNP8 CVR0');
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
a:string;
begin
a:=socket.ReceiveText;
memo1.lines.add('recvd:'+a);
//if a='VER 1 MSNP8 CVR0'+#13#10 then sendcommand('INF 1'); <-it would be preferable to issue this command following the receival of the last message from the server

end;

procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
memo1.lines.add('disconnecting...');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
sendcommand('INF 1');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if clientsocket1.Active=true then panel1.color:=clgreen else panel1.color:=clred;
end;

end.

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


That is the whole code for the application ive written so far. There is a timer, set to 10ms, to display the status of the Socket, a button, which sends the secondary command which for some reason makes the socket disconnect, and a memo to display the socket messages. If anyone could give me a demo, or help, then i would be happy to give away some points! Thanks, Henry Thacker.