Заменить во введенном строковом выражении указанную подстроку нужным числовым значением

procedure TForm1.Button1Click(Sender: TObject);
var s,s1:string;
    n,i:integer;
begin
s:=edit1.text;
s1:=edit2.text;
n:=strtoint(edit3.text);
for i:=length(s) downto 1 do
if copy(s,i,length(s1))=s1 then
 begin
  delete(s,i,length(s1));
  insert(inttostr(n*n),s,i)
 end;
edit4.Text:=s
end;

procedure TForm1.FormClick(Sender: TObject);
var s,s1:string;
i:integer;
n,x:real;
begin
s:=edit1.Text;
n:=strtofloat(edit3.text);
x:=sqr(n);
str(x,s1);
for i:=1 to length(s) do
 begin
   if copy (s,i,length(s1))=s1 then  begin
                                       delete(s,i,length(s1));
                                       insert(s1,s,i);
                                     end;
 end;
edit4.text:=s;
end;
end.

for i:=length(s) downto 1 do

for i:=1 to length(s) do