no estoy seguro con Oracle, pero:
fdm.tbPer.execute;
debería ser fdm.tbPer.Open;
Una vez abierta, simplemente lees el valor que tiene el único de la consulta:
Código Delphi
[-]
var n:integer;
begin
....
fdm.tbPer.Open;
n := fdm.tbPer.Fields[0].asinteger;
saludos