mehrere Tokens aus string löschen

[sniper_w]

Delphi-Quellcode:

procedure ReplaceStr(var ToReplace:string; const strout,strin:string);
  var p:integer;
begin
  p := Pos(strout, ToReplace);
  //if p<>0 then
  while p<>0 do
  begin
    Delete(ToReplace, p, Length( strout ) );
    Insert(strin, ToReplace, p);
    //ReplaceStr(ToReplace, strout, strin);
    p := Pos(strout, ToReplace);
  end;
end;

Dies ist eine Procedur die nicht funktioniert...warum, weiss ich nicht. Was ich erreichen will ist folgendes:

Delphi-Quellcode:

Anfangsstring := 'jh sj ebnjbfu hhh sdhweh sdfhhhs jhe  hjhhh';
ReplaceStr(Anfangsstring, 'hhh, 'X');
//jetzt sieht mein string so aus
Anfangsstring := 'jh sj ebnjbfu X sdhweh sdfXs jhe  hjX';

Was mache ich falsch ?