Delphi - Tipo de dato Real/Float

Hola tengo una inquietud y quiza alguno de ustedes me pueda ayudar...
Intento imprimir un reporte ('QReport') pero antes de imprimir en un TQRExpr necesito saber si el valor es mayo o menor que otro que tengo en un TQRDBText para ello hago lo siguiente:

procedure TInfCertificado.QRExpr23Print(sender: TObject;var Value: String);
var numero,numero2:real;
begin
numero:=QRExpr23.Value.dblResult; {compruebo los valores y siempre son ceros}
numero2:=DmInformes.QCertificado['COLUMN26'];
if (QRExpr23.Value.dblResult>DmInformes.QCertificado['COLUMN26']) then
begin
ShowMessage('prueba');
end
else
begin
ShowMessage('');
end;
end;

¿Que debo hacer para k tomen los valores reales?