[jonmendi]

Hola a todos!
tengo que comparar dos columnas de pesos.
Tengo una función redondear que

function redondear(x:double):double;
begin
  SetRoundMode(rmDown);
  result:= SimpleRoundTo(x,-2);
end;

y lo llamo con

Table1.Fields[2].AsFloat:= Redondear(Table1.Fields[2].AsFloat);

Cuando hago la comparación en

procedure TForm1.DBGrid2DrawColumnCell
   (Sender: TObject; const Rect: TRect;
    DataCol: Integer; Column: TColumn;
    State: TGridDrawState);
begin
    if table1.Fields[2].AsFloat <>  -table1.Fields[3].AsFloat then
      DBGrid2.Canvas.Brush.Color:=clRed;
    DBGrid2.DefaultDrawColumnCell (Rect, DataCol, Column, State);
end;

todas las columnas me aparecen en rojo. En cambio si no lo redondeo, solo me aparecen en rojo las que no coinciden (como debería de ser, pero necesito redondear). Si hago una asignación (solo para probar como va)

Table1.Fields[2].AsFloat:= 1;

también me aparecen en rojo solo las que no coinciden. Si hago RoundTo, también hace bien la comparación (pero el redondeo es otro cantar).
¿Sabe alguien donde está el misterio?
Muchas gracias!
Jon


uso delphi7, bde,paradox