String(ansi) to Url-Encoded String

[rossinie00]

hab ich doch. ist relativ komplex und nicht gpl.
bei mir siehts so aus:

text := urlencode(memo1.text);
memo1.text := text ;