Boolean var-Parameter in Prozedur mit Vorgabewert?

[Glados]

Zitat:

Dann kannst du doch auch eine Function davon machen. Dann benötigst du auch keinen Var-Parameter und kannst ganz sicher mit Default-Parametern hantieren.

Es ist weniger ein Rückgabewert.

Bevor TestProc aufgerufen wird, soll die Variable auf True gestellt werden. Ist die Arbeit getan auf False.

Das hat den Hintergrund, dass ich den Wert dieser Variable an anderen Stellen abfrage. Ist der Wert zum Zeitpunkt der Abfrage auf True weiß ich, dass die Arbeit noch nicht getan ist.
Genau genommen handelt es sich hier um den FadeIn/Out-Effect eines TForms.

Nur zur Veranschaulichung wie es vorher war

Delphi-Quellcode:

// global
var
 BoolVar: Boolean;

procedure TestProc(a: string; var x: Boolean);
begin
 .....
end;

BoolVar := True; // <==
TestProc('abc');
BoolVar:= False: // <==

Die markierten Stellen möchte ich nur ungerne dutzende Male schreiben müssen. Daher der Umweg mit dem var-Parameter.