Wenn du die Prozedur zum Beispiel so änderst:
Delphi-Quellcode:
var
BoolVar: Boolean;
procedure TestProc(a: string; x: Boolean = True);
begin
BoolVar := x;
.....
BoolVar := not x;
end;
Hängt aber auch von deiner genauen Zielsetzung ab, die ich nicht bis ins letzte Detail kenne.