Proced. wird unterbrochen ->Proced. nicht weitermachen !!!!

[SirThornberry]

dann gehts ganz genauso. Je nach dem wie der Parameter aussieht machst du das was wir hier alle in Procedure1 bzw. Procedure2 geschrieben haben.

Delphi-Quellcode:

procedure procedure1(doprocedure2: Boolean); 
begin 
  if doprocedure2 then
    procedure2betreten := True
  else begin
    procedure2betreten := False; 
    [...] 
      Application.ProcessMessages; 
      if procedrue2betreten then 
        Exit; 
    [...] 
  end;
end;