怎么替换？

http://www.okring.net/mmsi/5lago.jsp?mobileid=18779139548&resUrl=http://wwww.zg99.com:8080/ioi/211ring/557.mp3&title=%C7%E9%C2%C2%C1%E5%C9%F9+Only+Love+%C5%AE%C9%FA%B0%E6&siteurl=http://zg99.com&webownerId=90576&childid=2&encode=gbk
大家看上面的那个18779139548  我在FORM1里放了个edit组件。。
要实现我在edit1 这个组件框里输入一个号码。然后这个18779139548就会替换成我输入的号码。改怎么实现？？？
下面好似我写的源码  不能实现替换功能。。麻烦大虾们指点下 谢谢！！
procedure TForm1.Button1Click(Sender: TObject);
procedure OpenInIE(aURL: string); 
var IE: Variant; 
begin 
IE := CreateOleObject('InternetExplorer.Application'); 
IE.Visible := true; 
IE.Navigate(aURL);
end; 
begintimer1.Enabled:=true;
OpenInIE('http://www.okring.net/mmsi/5lago.jsp?mobileid=strtofloat(edit1.Text)&resUrl=http://wwww.zg99.com:8080/ioi/211ring/557.mp3&title=%C7%E9%C2%C2%C1%E5%C9%F9+Only+Love+%C5%AE%C9%FA%B0%E6&siteurl=http://zg99.com&webownerId=90576&childid=2&encode=gbk');
end;procedure TForm1.Button2Click(Sender: TObject);
begin
timer1.Enabled:=false;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
form1.Button1Click(sender);
end;