komma am ende von string entfernen

[Lyan]

hallow ie kann ich eigtl. ein komma am ende von einem String entfernen?

Code:

procedure TForm2.Button1Click(Sender: TObject);
var i: Integer;
begin
  i := 0;
    repeat
      inc(i);
      memo1.Lines.Add(inttostr((i)));
    until (i = 100);
end;
procedure TForm2.Button2Click(Sender: TObject);
var iZaehler: Integer;
    sKstring: string;

begin
  for izaehler := 1 to 100 do
  begin
    sKstring := sKstring + inttostr(iZaehler) + ', ';   // Hier das Komma ;
  end;
  memo1.Lines.add(sKstring);
end;
end.

danke