procedure TForm1.Button1Click(Sender: TObject); begin Try ShowMessage('Try'); Exit; Finally ShowMessage('Finally'); End; end;