indy FTP OnWork zuordnen?!

[starY]

Delphi-Quellcode:

var  idFTP: array of TidFTP;

idftp[ArrayNR].OnWork:=IdFTP1Work;

procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);

Mein Problem ist wie ich dann herausfinde welcher idFTP[x] das IdFTP1Work ausgelöst hat. TidFTP(sender) will irgendwie nicht klappen.