Du solltest statt
VMain.Insert;
besser mal
VMain.Append;
verwenden.
Insert() macht im Prinzip das Gleiche wie Append() nur dass bei Insert() noch zusätzlicher Code ausgeführt wird, den man vermeiden sollte wenn es nicht unbedingt notwendig ist.
Übrigens könntest du auch gleich noch die Kurzschreibweise verwenden:
Delphi-Quellcode:
// lange Schreibweise
VMain.FieldByName('PE_ID').Value := ...
// Kurzschreibweise
VMain['PE_ID'] := ...