Daten von ComPort in Stringliste speichern

[Quake]

Dann solle das aber mit

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; 
    List.Text := (Data);
    List.SaveToFile(ExtractFilePath(ParamStr(0))+ 'temp.txt');
  end; 
end;

funktionieren.