27.11.2013, 23:22
Tente substituir:
format(Empresa[id][MensagemEmp], 21, strval(Query))
por
format(Empresa[id][MensagemEmp], 21, "%d", strval(Query));
format(Empresa[id][MensagemEmp], 21, strval(Query))
por
format(Empresa[id][MensagemEmp], 21, "%d", strval(Query));