On Error Goto
:וא
On Error Resume Next
...'וכו

... // There are some code above the lower lines.
Try 
	Case Message.msg of
		WM_Maximize : ....
		WM_Minimize : ...
		WM_Move       : ...
		...
	End;
Except  //This is what we need ...
	Raise Exception.Create('An error was found');
End;
...

Try //Do something ...
 ....
Finally // In the End of the Above statement do ...
...
End; //That's all ...

...
var
  wOldErrorMode : Word;

...
wOldErrorMode := {Tell Windows to ignore any error. The Variable  
                  receve the old way Windows handle the Error 
                  Messages}
                  SetErrorMode(SEM_FAILCRITICALERRORS );

 with Tform1.create(Self) do
  Try
	Form1.ShowModel;
  Finally 
	Free;
	SetErrorMode( wOldErrorMode ); {Return the OLD way that      
                                        Windows handle Error 
                                        Messages}
End;