function Replace(var aSource: string; const aFind, aReplace: string): Integer;
var I: Integer;
begin
Result := 0;
I := Pos(aFind, aSource);
while (I <> 0) do
begin
Insert(aReplace, aSource, I);
Delete(aSource, I + Length(aReplace), Length(AFind));
Inc(Result);
I := Pos(aFind, aSource);
end;
end;
// Kullanımı:
procedure TForm1.Button1Click(Sender: TObject);
var S: string;
Count: Integer;
begin
S := 'Deneme Değeri';
Count := Replace(S, 'De', 'XXX');
ShowMessage(Format('Yeni değer %s. Toplam %d kere değişim yapıldı', [S, Count]));
end;