Передача данных через Com порт

0A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 54 65 73 74 20 62 6F 61 72 64 20 4D 65 67 61 32 35 36 30 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 4D 61 69 6E 20 70 61 72 61 6D 65 74 65 72 73 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0A 41 70 20 20 20 36 20 32 30 32 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 30 3A 34 34 3A 32 38 0A 42 6F 61 72 64 2D 3E 41 72 64 75 69 6E 6F 20 4D 65 67 61 20 32 35 36 30 2F 34 3B 20 20 41 72 63 68 2D 3E 41 56 52 2F 31 3B 20 20 43 6F 72 65 2D 3E 41 56 52 3B 3B 0A 53 65 6C 65 63 74 20 62 6F 61 72 64 2D 3E 42 4F 41 52 44 20 41 56 52 20 4D 45 47 41 32 35 36 30 3B 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 49 6E 74 65 72 66 61 63 65 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0A

procedure TForm1.BComPort1RxChar(Sender: TObject; Count: Integer);
var
  S : String;
  Y, L : Integer;
 begin
    BComPort1.ReadStr(S, Count);  
     if CRLF.Checked and (S[Length(S)] = #13) then 
       begin
          S := S + #10;
          RzMemo1.Text := RzMemo1.Text + S;
     end;
 end;