try
....(需要执行的代码)
except
on e:exception do
application.MessageBox(pchar(e.Message), '错误提示', 0);
end;
try
....(需要执行的代码)
except
on e:exception do
application.MessageBox(pchar(e.Message), '错误提示', 0);
end;
转载于:https://www.cnblogs.com/Bung/archive/2011/08/15/2139384.html