Как изменить два последних символа строки в delphi ?

[adaptive person]

Как изменить два последних символа строки в delphi ?

[_SERGEYX_]

procedure TForm1.RzBitBtn1Click(Sender: TObject);
const
  s: string = 'Number 25';
begin
  ShowMessage(Copy(s, 1, length(s) - 2) + '47');
end;

[xrob]

а если вопрос юзера понять буквально, то так:
d:=Length(str);
// строка это массив:
str[d]:='0'; // это последний символ
str[d-1]:='0'; // это предпоследний символ