[lmikle]

2 @Rafa3L

А теперь попробуй на такой строке: '1abcd'
Или, еще лучше, на такой: 'abcd'

Подсказка: В цикле For условие вычисляется один раз.

Если уж делать, то как-то так:

Код:

function MystringReplace(ASrc, ASearchFor, AReplaceBy : String) : String;
begin
  Result := ASrc;
  Idx := Pos(ASearchFor,Result);
  While Idx > 0 Do
    Begin
      Delete(Result,Idx,Length(ASearchFor));
      Insert(AReplaceBy,Result,Idx);
      Idx := Pos(ASearchFor,Result);
    End;
end;

И это еще без флагов.