[NumLock]

Код:

var
  buf: array [0..3] of Byte;
begin
  buf[0]:=$38;
  buf[1]:=$36;
  buf[2]:=$37;
  buf[3]:=$31;
  ServerSocket1.Socket.Connections[0].SendBuf(buf, Length(buf));
end;

||

Код:

var
  buf: array [0..3] of Byte = ($38, $36, $37, $31);

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  ServerSocket1.Socket.Connections[0].SendBuf(buf, Length(buf));
end;