>>837
・自分の手続きを関数にして戻り値で判断。
・イベントハンドラ内のフラグを利用
procedure TForm1.EventHandler(Sender: TObject);
var
　exitFlag: Boolean;

　procedure MyProc;
　begin
　　if xxx then exitFlag := True;
　end;
・Abortする。