Maybe try this:

begin
RecordAddBegin(VARVc,"VARVc_custom");
MainKeyBegin(Code,0);
KeySegment(Code);
KeySegment(VARGCode);
EndRecordAdd;
return;
end;