Daten von ComPort in Stringliste speichern

[Grolle]

Hi!
Habe mich vertan. War doch nen RichEdit. Mit nem Memo
gehts aber so auch. Hier der Source:

Delphi-Quellcode:

procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
var
  Data: String;
  I: Integer;
begin
  Data := '';
  for I:= 0 to Count-1 do
  begin
    Data := Data + ApdComPort1.GetChar;
    RichEdit1.SelText := (Data);
  end;
end;