for i:=1 to 10 do begin s:=m1.Lines.String[i]; While(Pos("Маша",s)<>0)do begin q:=Pos("Маша",s); delete(s,q,4); insert("Паша",s,q); end; end; Вроде так. Я не могу проверить, негде.