一个网页关键字链接的问题(50分)

取有道搜索引擎的关键字链接
我的程序如下：
//搜索引擎选择
function TMain.ChooseSearchEngine(KeyWord :string):string;
var
SearchEngine: string;
begin
if rbGoogle.Checked then //google
begin
SearchEngine := 'http://www.google.cn/search?hl=zh-CN&q='+KeyWord+'&btnG=Google+%E6%90%9C%E7%B4%A2&meta=';
Result := SearchEngine;
end
else if rbBaiDu.Checked then //百度
begin
SearchEngine := 'http://www.baidu.com/s?wd=' + KeyWord + '&cl=3';
Result := SearchEngine;
end；
//有道的没有取道，英文可以取到，中文的取加密了，搞不到。是问有人知道这么取吗？
end;

//获取网页源码
function TMain.GetHtml( KeyWord: string):string;
var
Url : string;
begin
Url := ChooseSearchEngine(keyWord);
Result := idhtp.Get(Url);
end;

[]
新年快乐

[][][]
富翁们，新年好啊！

接分中......

多人接受答案了。