TStringList und Count

[Spurius]

Hallo,

Delphi-Quellcode:

procedure TForm1.com1TriggerAvail(CP: TObject; Count: Word);
var i: word;
    input: string;
    liste: TStringList;
begin
 liste := TStringlist.Create;
 for i := 1 to count do begin
  input := input + com1.GetChar;
 end;
 liste.Add(input);
 showmessage(inttostr(liste.Count));
 input := '';
end;

Ich bekomme da immer "1" als Meldung, dabei sollte sich eigentlich das Resultat von Count immer erhöhen oder?
Gruß
Spurius