You should use try... except instead of try finally
Code: Select all
try
ZConnection1.Connect;
except
On E:Exception do
Begin
ShowMessage(E.Message);
End;
end;
Code: Select all
try
ZConnection1.Connect;
except
On E:Exception do
Begin
ShowMessage(E.Message);
End;
end;