var
strfrom,strto:string
str:string;
i:integer;
--------------
for i:=0 to memo1.lines.count-1 do
begin
str:=memo1.lines[i];
if pos(strfrom,str)>0 then
memo1.lines[i]:=
copy(str,0,pos(strfrom,str)-1)+strto+copy(str,pos(strfrom,str)+length(strfrom)),length(str)-(pos(strfrom,str)+length(strfrom)));
end;
вот,писал прямо тут,значит мог в количестве скобок ошибиться =\ но в целом должно работать
strfro - что ищем
strto - на что заменяем....
я думаю в цикле сможешь запускать,и подставлять from/to