indy IdFTP OnWork

Jeg synes at have et mærkeligt problem.

Hvis jeg dynamisk opretter en TIdFTP, og assigner OnWork og herefter vil fange IdFTP'en selv gennem OnWork-eventen får jeg i stedet fat i en TIdSimpleServer?

Kan jeg ikke i OnWork fange den "almindelige" Sender: TObject; frem for denne her ASender: TObject; ?

procedure TfrmMain.IdFTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Integer);
begin
  ShowMessage( ASender.ClassName );

end;

Tricket skulle være at jeg har lavet min egen class for TIdFTP, med en ekstra variabel til at vise AWorkCount værdien i en ListItem der er difineret ved Create af FTP-komponenten.

  TMyFTP = class(TIdFTP)
    FListItem: TListItem;
    published
      property ListItem: TListItem read FListItem write FListItem;
  end;

Humlen skulle så være at jeg ved OnWork kan fange ListItem for denne FTP og så opdatere AWorkCount i ListItem.Caption fx.

Måske er der en bedre måde at gøre det på end jeg har tænkt mig frem til?