Dúvida com código de calculo

procedure TFrm_Movimenta.SpeedButton1Click(Sender: TObject);
var
  Rateio, TotalNota : Real;
begin
  Rateio := 0;
  DataModule2.Qry_Rateio.First;
 While not DataModule2.Qry_Rateio.Eof do
   begin
     TotalNota := StrToFloat(Edit3.Text);
     Rateio := DataModule2.Qry_MovimentacaoValor_Frete.value/TotalNota;
     Rateio := Rateio*DataModule2.Qry_EntregaValorNF.Value;
     DataModule2.Qry_Rateio.Edit;
     DataModule2.Qry_RateioRateio.Value := Rateio;
     DataModule2.Qry_Rateio.Post;     
     DataModule2.Qry_Rateio.Next;
   end;

end;