[s0Creator]

Примерно так можно послать

Код:

var
  buf: array[0..3] of Byte = ($33, $00, $15, $03);

procedure TForm1.Button1Click(Sender: TObject);
var
  sendedLen: Integer;
begin
  sendedLen := TcpClient.SendBuf(buf[0], SizeOf(buf));
end;

массив можно делать динамический