ICS Sockets, Buffering and numerics.

Baically what I aim to do with the following code is to use command prefixes (numerics) to allow easy handling of incoming data to both clients and servers. I'm looking to do this in an IRC style way. The problem that arises is that I know nothing about doing it. Plainly hehe.

My question is really a request for code completion/improvement here. Preferably, the person answering this has done quite a bit of work with ICS, and handled buffering and numeric style command/response handling. This code is only a base model, I'm very open here.

Here's how it should work...
When the data is recieved, I want to make sure I have all of it, before I do anything with it. I also want to avoid having peices from the NEXT command (which can happen I've been told).

bacially I guess if you can see what I'm trying to do below and can improve it and make it work fully, you're the person for the answer hehe. I'll let my code do the talking...

procedure TForm1.SendCommand(Numeric: Integer; Length: Integer; Content: String);
var
Temp: TStringList;
begin
Data:= TStringList.Create;
Data.Insert(0, IntToStr(Numeric));
Data.Insert(1, IntToStr(Length));
Temp := TStringList.Create;
Temp.Text := Content;
Data.Insert(2, Temp.CommaText);
TextClient.Send(Data.CommaText); {Error on this line}
end;

procedure TForm1.TextServerDataAvailable(Sender: TObject; Error: Word);
var
ReciveBuffer: String;
FCurrentlyReciving: Boolean;
begin
Data:= TStringList.Create;

 ReciveBuffer := ReciveBuffer + TextServer.ReceiveStr;
 Data.CommaText := ReciveBuffer;

 if Data.Count < 3 then
 begin
 FCurrentlyReciving := True;
 exit;
  if Length(Data[2]) < StrToInt(Data[1]) then
   begin
    FCurrentlyReciving := True;
    exit;
   end else
   begin
    FCurrentlyReciving := False;
    Data.CommaText:= TextServer.ReceiveStr;
    Echo(Data.CommaText);
    ParseCommand(StrToInt(Data[0]), Data[2]);
   end;
   end;
end;

procedure TForm1.ParseCommand(Numeric: Integer; Content: String);
begin
{This is where I'll be parsing all commands}
end;


Thanks!
Psylord