IdHTTP OnStatus Tag

[luke2]

Hallo,

Ich setze in einem Thread die Tag-Eigenschaft eines IdHTTP Objekts.
Nun möchte ich gerne im OnStatus-Ereignis die Eigenschaft wieder auslesen, also einfach folgendes:

Delphi-Quellcode:

procedure TForm1.IdHTTP1Status(ASender: TObject; const AStatus: TIdStatus; const AStatusText: string);
var
  I: Integer;
begin
  I := (ASender as TIdHTTP).Tag; 
end;

Das funktioniert aber nicht, da der Sender nicht immer TIdHTTP, sondern auch manchmal TIdIOHandlerStack ist.

Der IOHandler-Eigenschaft kann ich leider nicht den selben Tag geben, so dass folgendes nicht funktioniert:

Delphi-Quellcode:

procedure TForm1.IdHTTP1Status(ASender: TObject; const AStatus: TIdStatus; const AStatusText: string);
var
  I: Integer;
begin
  if ASender is TIdHTTP then
    I := (ASender as TIdHTTP).Tag
  else {if ASender is TIdIOHandlerStack} then
    I := (ASender as TIdIOHandlerStack).Tag;
end;

Eine globale Variable/Liste o.Ä. möchte ich gerne vermeiden.

Die Frage ist also, ob es eine Möglichkeit gibt vom Sender TIdIOHandlerStack zum TIdHTTP zu kommen, um das Tag auszulesen, also sowas wie GetParent oder so?