Procedure oder Funktionsaufruf mit Wertveränderung

[Motzi]

Delphi-Quellcode:

Procedure wortaendern ( {-->} var {<--} name: string);
begin
 name := name + '1234';
end;

Procedure Tform1.button1click(Sender: Objekt);
var
 neuer_name: string;
begin
 neuer_name := woraendern ('Sven');
end;