시리얼포트 모니터링 부분에서 값을 받아서 출력해주는 부분에서
   
  
procedure TForm1.SerialPortMonitorWriteData(ASender: TObject;
  var Buffer: Byte; Count: Integer);
var
  z : PByteArray;
  S: String;
  I: Integer;

begin
  z := @buffer;
  S := '';
  for I:=0 to Count - 1 do
    S:= S + char(z[i]);   //이부분에서  한글만 깨집니다

   memo1.Lines.Add(s);
end;

이부분을 어떻게 수정을 해야 하는지 한수 부탁드립니다
ansi 나 wide 수정을 해도 여전히 깨집니다