[Alegun]

Предпологается что хендл ComPort уже открыт

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
 tmp: array[1..255] of byte;
 RX_Count: integer;
begin
 ReadFile(ComPort, tmp, 255, RX_Count, nil);
 if RX_Count> 0 then
  Memo1.Lines.Add(TimeToStr(Time));
end;