Substring replacement

uses System.SysUtils;

var
  StartString: string;
begin
  StartString := '3, 2, 1, go!';

  StartString := StringReplace(StartString,
    '1', 'one', [rfReplaceAll]);
  StartString := StringReplace(StartString,
    '2', 'two', [rfReplaceAll]);
  StartString := StringReplace(StartString,
    '3', 'three', [rfReplaceAll]);
  //StartString is 'three, two, one, go!'

  WriteLn(StartString);
end.