Try Except Android

procedure TComunicaServer.getParamGFromServer(psParamG : String);
var
servico : TServerMethods1Client;
vlRetornoServer : TFDJSONDataSets;
vlMemParamG : TFDMemTable;
begin
try

servico := TServerMethods1Client.Create(ClientModule1.DSRestConnection1);
try

vlRetornoServer := servico.getParamG(psParamG);

Assert(TFDJSONDataSetsReader.GetListCount(vlRetornoServer) = 1);

vlMemParamG := TFDMemTable.Create(Application);

vlMemParamG.AppendData(TFDJSONDataSetsReader.GetListValue(vlRetornoServer, 0));

setConfigParamg(vlMemParamG);

Except //aqui o app fecha e não mostra a mensagem ao usuário.
on e :exception do
ShowMessage(e.Message);
end;

finally
if Assigned(servico) then
FreeAndNil(servico);
if Assigned(vlMemParamG) then
FreeAndNil(vlMemParamG);
if Assigned(vlRetornoServer) then
FreeAndNil(vlRetornoServer);
end;
end;