procedure TMain.mscomReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
var
 tmpArray    :array[0..4096] of Byte;
 ArraySize,i : DWORD;
 Count       :DWORD;
 tmpStr      :string;
 pStr        :PChar;
begin
  move(buffer^,tmpArray,BufferLength);
  if chk.Checked  then
  begin
   pStr:=Buffer;
   tmpStr:=string(pStr);
   Dec(PStr);
   SetLength(tmpStr,BufferLength);
   for i:=0 to Length(tmpStr)-1 do
    begin
     inc(PStr);
     tmpArray[i]:=Byte(PSTR^);
     Memo1.Lines.Add(IntToStr(Ord(tmpArray[i])));
    end;
   exit;
  end;
  pStr:= Buffer;
  Memo1.Lines.Add(pStr);
end;