[kekai]

спасибо за ответы.
затупил что-то

Код:

procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
  //Str: String;
  i: Integer;
begin
  ComPort.Read(buf, Count);
  for i:=1 to Count do
  Memo.Text := Memo.Text + ' ' + IntToHex(buf[i],1);
end;