procedure p1;
begin
p2;
p3;
end;

procedure p2;
begin
abort; //exit;
end;

procedure p3;
begin
//showmessage()..
end;