Sonderzeichen umwandeln

[Capa]

Hab gerade was gefunden was meine arbeit schonmal extrem erleichtert
http://www.delphipraxis.net/1106525-post9.html
das funzt wenigstens

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(HTTPDecode(x[I])));
end;