Problem mit senden mit Indy

[Bigmichi]

ich hab folgende Types

Code:

type
  TCommBlock = record   // the Communication Block used in both parts (Server+Client)
                 Command,
                 MyUserName,                 // the sender of the message
                 Msg,                        // the message itself
                 ReceiverName: string[250];  // name of receiver
               end;

und sendne tue ich so :

Code:

var
  CommBlock : TCommBlock;

begin

  if EditMessage.Text = '' then exit;

  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;

nur das Problem ist ich kann dan nur 250 Zeichen senden unddas max steht bei ar auf 255 -.- nur wie bekomem ich es nun hin solch ein Block mit Größenangabe zu senden ? wäre cool wenn mir jemand helfenkann =)