Code Optimisation: Benutzung von const in prozedur-Köpfen

[SneakyBagels]

Zitat von bra:

Delphi-Quellcode:

var FString: String = 'Test';

procedure Change(const AString: String);
begin
  FString := 'Blubb';
  ShowMessage(AString);
end;

procedure CallMe;
begin
  Change(FString);
  Change(FString);
end;

Da frage ich mich.... wer baut so einen Unsinn?