Also der Fehler la an denen hier:
Delphi-Quellcode:
procedure IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer);
procedure IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer);
hab sie copiert gehabt und dadurch enstand anscheinen immer der Fehler,
hab Sie dann gelöscht und über den ObjectInspector erstellt.
Und siehe da dann gehts.