try
abort;
Edit1.Text := timetostr(now); //没执行
except
//执行了
ShowMessage('1');
end;
try
exit;
Edit1.Text := timetostr(now); //没执行
except
//没执行
ShowMessage('1');
end;
try
exit;
Edit1.Text := timetostr(now); //没执行
finally
//执行了
ShowMessage('1');
end;
try
abort;
Edit1.Text := timetostr(now); //没执行
finally
//执行了
ShowMessage('1');
end;