> MILL出力データの内容をエディタ内で一括変更したいのですが

// G00 を G01

Program Sconvert;
var
i, n, p, leng : integer;
s : string;

begin // エディタにNCデータを準備しておいて下さい。
n := 0;
leng := EditorLength(); // エディタの行数を取得する
for i:=1 to leng do
Begin
s := EditorRead(i);
if Length(s) < 1 then continue; // 対象外
if Pos('G00', s) = 0 then continue; // 対象外
if Pos('X', s) = 0 then continue; // 対象外
if Pos('Y', s) = 0 then continue; // 対象外

s:= StringReplace(s, 'G00', 'G01');
// MsgBox(s);
EditorWrite(i, s);
inc(n);
End;
s := IntToStr(n);
OkMsgBox('G00X*Y*を ' + s + ' 個G01X*Y*に置き換えました。');
End.

これではどうですか？