Wie kann man Tabstops durch ',' ersetzen?

[emsländer]

Moin,

ich schreib mir grad ne kleine Funktion, die mir in einer Textdatei die Tabstops durch Kommata ersetzen soll. Nur klappt das nicht so ganz wie ich mir das gedacht habe. Hier mein Code:

Delphi-Quellcode:

procedure Tfrmmain.btn_datei_lesenClick(Sender: TObject);
  var liste : Tstringlist;
  var count : integer;
begin
  liste := tstringlist.Create;
  liste.LoadFromFile(edt_dateiname.Text);
  for count := 0 to liste.Count -1 do begin
    liste[count] := StringReplace(liste[count], chr(8), ',', [rfReplaceAll]);
  end;
  liste.SaveToFile('c:\text.txt');
  freeandnil(liste);
end;

Wo ist mein Denkfehler?

Gruss

EL