problema tdbgrid

[chele]

Mira he peusto esto ( no se como se pone para que aparesca el codigo separado en blanco sorry ) .

Código Delphi [-]
procedure TDataModule2.qryAutorizacionesDESCMANValidate(Sender: TField);
var percaaplicar : real;
    sumaimporte, sumaimporte1, sumatotal :extended;
begin


      while not qryautorizaciones.Eof do
      begin
      sumaimporte := sumaimporte + qryautorizacionesAutdto.value;
      sumaimporte1 := sumaimporte1 + qryautorizacionesDescMan.value;
      qryautorizaciones.next;
      end;

sumatotal := sumaimporte + sumaimporte1;


if (sumatotal - qryautorizacionesImporte1.value) > 0 then
raise exception.create('La cantidad autorizada supera la pendiente');      

end;