//参考如下代码
function UrlEncode(mUrl: string): string;
var
I: Integer;
begin
Result := '';
for I := 1 to Length(mUrl) do
begin
case mUrl[I] of
#33..#126: Result := Result + mUrl[I];
else Result := Result + '%' + IntToHex(Ord(mUrl[I]), 2);
end;
end;
end; { UrlEncode }
procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := UrlEncode('鞋子')
end;