Delphi-Quellcode:
If Function(Parameter1, Parameter2) = True Then
begin
ShowMessage('Wahr');
end
else
begin
Fenster2öffnen
end;
Beim erstenmal funktionierts wenn die Function True zurückgibt.
Soblad ichs nochmal ausführe mit Rückgabewert True kommt Fenster2öffnen