DMX сигнал отображается не весь

unit protoncode;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, BCPort, Vcl.Grids;
 
type
  TMainForm = class(TForm)
    Panel1: TPanel;
    cbPort: TComboBox;
    btnConnect: TButton;
    btnDisconnect: TButton;
    BComPort1: TBComPort;
    Memo: TMemo;
    Button1: TButton;
    StringGrid1: TStringGrid;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btnConnectClick(Sender: TObject);
    procedure btnDisconnectClick(Sender: TObject);
    procedure btnSendClick(Sender: TObject);
    procedure BComPort1RxChar(Sender: TObject; Count: Integer);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
  end;
 
var
  MainForm: TMainForm;
 
implementation
 
{$R *.DFM}
 
function HexToAsc(strData:string): string;
var sresult:string; sfinal:string; hexc:cardinal; i:integer;
begin
 i:=1;
 while i<=length(strData) do
begin
 hexc := strtoint('$' + copy(strData,i,2));
 sresult := inttostr(hexc);
 sresult := chr(strtoint(sresult));
 sfinal := sfinal + sresult;
 i:=i+2;
end;
 result := sfinal
end;
 
function StringtoHex(Data: string): string;
var
  i, i2: Integer;
  s: string;
begin
  i2 := 1;
  for i := 1 to Length(Data) do
  begin
    Inc(i2);
    if i2 = 2 then
    begin
      s  := s + ' ';
      i2 := 1;
    end;
    s := s + IntToHex(Ord(Data[i]), 1);
  end;
  Result := s;
end;
 
function StrToHex(source: String): String;
var i:integer;
    c:Char;
    s:String;
begin
    s := '';
    for i:=1 to 512  do    //  512  * 10 / 16 = 320         Length(source)
    begin
      c := source[i];
      s := s +  IntToHex(Integer(c),2); //  +' '
    end;
    result := s;
end;
 
procedure TMainForm.FormCreate(Sender: TObject);
begin
  EnumComPorts(cbPort.Items);
  cbPort.ItemIndex := 1;
end;
 
procedure TMainForm.btnConnectClick(Sender: TObject);
begin
  BComPort1.Port := cbPort.Text;
  if BComPort1.Open then
  begin
    btnConnect.Enabled := False;
    cbPort.Enabled := False;
    btnDisconnect.Enabled := True;
    end;
end;
 
procedure TMainForm.btnDisconnectClick(Sender: TObject);
begin
  if BComPort1.Close then
  begin
    btnConnect.Enabled := True;
    cbPort.Enabled := True;
    btnDisconnect.Enabled := False;
   end;
end;
 
procedure TMainForm.btnSendClick(Sender: TObject);
begin
  if BComPort1.Connected then
  begin
  end;
end;
 
procedure TMainForm.Button1Click(Sender: TObject);
begin
  Memo.Clear;
end;
 
procedure TMainForm.Button2Click(Sender: TObject);
var row,col ,r,i: integer;
    N: String;
begin
 N:= Memo.Text;
    StringGrid1.ColCount:= 15;  // устанавливаем кол-во ячеек в строке
    StringGrid1.RowCount:= 50;  // устанавливаем кол-во ячеек в столбце
   r:=0;
   row:=0;
   col:=0;
    Button2.Caption:= IntToStr(Length(N));
  While i <= Length(N)-1 do  // пока i меньше либо равно длине строки
      begin
       StringGrid1.Cells[col,row]:=N[r+1]+N[r+2];  //записываем по 2 символа в каждую ячейку StringGrid
       col:= col+1;
        if (col mod 15) = 0 then
           begin
            row:= row+1;
            col:= 0;
           end;
       inc(i); // переходим к следующей позиции (+1)
       r:=r+2;   // набавляем сдвиг по символам
      end;
 
  end;
 
procedure TMainForm.BComPort1RxChar(Sender: TObject; Count: Integer);
var
  S: String;
begin
  BComPort1.ReadStr(S, Count);
  Memo.Text := StrToHex(S);
end;
end.

var
  S: String;
begin
  BComPort1.ReadStr(S, Count);
....

function Read(var Buffer; Count: Integer): Integer;

function StringHandling(const Value: String; cbMHex: boolean): String;
var
  N: Integer;
begin
  if cbMHex then
  // Если требуется отображать данные в HEX, конвертируем их
  begin
    Result := '';
    for N := 1 to Length(Value) do
      Result := Result + IntToHex(Ord(Value[N]), 2) + ' ';
  end else
  // Если требуется отображать данные в символьном виде
  begin
      Result := Value;
    // Непечатные символы заменяются на "."
    for N := 1 to Length(Result) do
      if Result[N] < ' ' then Result[N] := '.';
  end;
end;