Sonderzeichen umwandeln

[Capa]

Auch die lange version funzt nicht

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var x: TStringlist;
    I: Integer;
begin
  x := TStringlist.Create;
  x.Text := IdHttp1.Get('http://de68.die-staemme.de/map/ally.txt');
  for I := 0 to x.Count - 1 do
    Listbox1.Items.Add(Utf8ToAnsi(TIdURI.URLEncode(x[I])));
end;