Fehlersuche bei Kopierroutine

[khh]

hallo zusammen.
ich kopiere in meinem Programm in einer Schleife ca 100 Datensätze einer Query.

Code:

Fvkaufpos.EINZELBRUTTOPREIS     := aufpos2Zquery.FieldByName('EINZELBRUTTOPREIS').AsCurrency;

   

procedure Tvkaufpos.DSneu;  
FQuery1.post;

in der procedure DSneu wird per Query.post jeweils der neue Satz angelegt.
das funktioniert auch täglich fehlerfrei bis auf bisher 2mal im vergangenen Jahr
Aus mir unerklärlichen Gründen steht bei diesen 2 Kopiervorgängen in mehreren EINZELBRUTTOPREIS
des Kopiervorgang der gleiche, falsche Preis von 3,30

Hat jemand von euch eine Idee zur Fehlersuche ?

danke Gruss KHH