Problem beim Senden mit Indy

[Bigmichi]

ich bin mir ein kleinen chat am aufbauen nur mein Problem ist, dass
der Text immer nur 100 Zeichen lang sein kann wieso ?

mein code sieht so aus:

Code:

procedure TClientFrmMain.ButtonSendClick(Sender: TObject);
var
  CommBlock : TCommBlock;

begin
  CommBlock.Command      := EditCommand.Text;         // assign the data
  CommBlock.MyUserName   := Client.LocalName;
  CommBlock.Msg          := EditMessage.Text;
  CommBlock.ReceiverName := EditRecipient.Text;

  Client.WriteBuffer (CommBlock, SizeOf (CommBlock), true);

  editmessage.Clear;
end;

ist das falsch ?