Mach eine globale Variabe
Delphi-Quellcode:
var
weitermachen:boolean;
dann schreibst du in die proc1 rein:
Delphi-Quellcode:
procedure proc1;
begin
weitermachen:=true;
...blablabla...
application.processmessages //Hier gelegenheit, button2 zu drücken
if not weitermachen then exit;
...blablabla...
application.processmessages //Hier gelegenheit, button2 zu drücken
if not weitermachen then exit;
...blablabla...
end;
procedure proc2;
begin
weitermachen:=false;
end;