procedure TForm1.Button1Click(Sender: TObject);
var
temp, bigst, pstst, smst:string;
i:integer;
begin
bigst:=edit3.Text; //строка где ищется
pstst:=edit2.Text; //строка вставляется
smst:=edit1.Text; //стро поиска
temp:=''; //временная строка
i:=pos(smst,bigst);
while i>0 do begin
temp:=temp+copy(bigst,1,i-1)+pstst+copy(bigst,i,1);
delete(bigst,1,i);
i:=pos(smst,bigst);
end;
edit4.texT:=temp; //содержит готовую строку
end;