10 lines
164 B
Text
10 lines
164 B
Text
|
procedure test2;
|
||
|
|
begin
|
||
|
|
try
|
||
|
|
test;
|
||
|
|
except
|
||
|
|
ShowMessage(Exception(ExceptObject).Message); // Showing exception message
|
||
|
|
raise; // Rethrowing
|
||
|
|
end;
|
||
|
|
end;
|