AnsiReplaceStr/AnsiReplaceText

[Der Jan]

Hallo,

ich möchte in einem String Teilstrings ersetzen und habe dazu AnsiReplaceStr/AnsiReplaceText verwendet.
Da das Ergebnis fehlerhaft war, habe ich debuggt und dabei festgestellt, daß die Replace-Funktionen schlichtweg nichts taten, nach dem Replace stand noch das selbe drin wie vorher. Um andere Fehler auszuschließen, habe ich das ganze mal reduziert auf:

Delphi-Quellcode:

var 
  s: string;
begin
  s := 'Das ist ein Test.';
  ShowMessage(IntToStr(AnsiPos('ein', s)));   //Ergebnis: 9 ('ein' wird also gefunden)
  AnsiReplaceText(s, 'ein', 'kein');
  ShowMessage(s);                             //Ergebnis: Das ist ein Test.
end;

Hab s auch mal zum AnsiString gemacht, (man weiß ja nie ) und mit AnsiReplaceStr versucht, kein Erfolg.
Vielleicht steht ja wer auf meiner Leitung... Weiß jemand Rat?
Das passiert unter Delphi6. Andere IDEs zum testen habe ich leider gerade nicht installiert.