Das ganze funktioniert zwar wie gewünscht, ist aber fürchterlicher Programmierstil - nur ist mir halt eben bislang dazu nix Besseres eingefallen.
Also generell, wenn man Code in der anonymen Prozedur schreibt,
dann ist alles schön beim Aufrufer zusammengefasst, und nicht über die ganze
Unit verstreut.
Deshalb finde ich das eigentlich sehr aufgeräumten Code (sieht nur etwas unelegant aus, auf den ersten Blick).
Natürlich sollte man nicht zu viel darin machen, und man könnte weitere Aufgaben per Message anstossen.
Delphi-Quellcode:
...
begin
if ARes=mrOk then
begin
...
MacheHierWas;
...
end
else
begin
...
MacheHierWasAnderes;
...
end;
end);