Me respondo yo mismo por si alguien quiere hacer esto , creo que ya tengo solución al problema :
Código Delphi
[-]
.....
frxReport1.Variables[NombreVariable] := NativeUInt(FDQuery1 as TObject);
var
Q:TFDQuery;
.....
Q := TFDQuery(NativeUInt(Variables[NombreVariable]));
if assigned (Q) then
.....