line_num := 0
repeat
  inc(line_num);
  GotoLine(line_num);
  
if instr(currentline,'M01')>0 then
begin
inc(line_num);
  GotoLine(line_num);
 insertline('N1');
end 

until line_num = LineCount;