[Dagmanor]

(DELPHI 2010) Здраствуйте, нужна помощь более опытных товарищей по программированию. Ситуация такова: динамически создается компонент типа TIdFTP
вот так:

Код:

IdFTP1 := TIdFTP.Create;
IdFTP1.Name := 'IdFTP1';
IdFTP1.OnWork := FTPWork;
IdFTP1.OnWorkBegin := FTPWorkBegin;
IdFTP1.AutoLogin := True;
IdFTP1.TransferType := ftBinary;
IdFTP1.ProxySettings.ProxyType := fpcmNone;
IdFTP1.ProxySettings.Port := 0;
IdFTP1.Passive:=True;
idftp1.Host:=host;
IdFTP1.Port:=port;
IdFTP1.Username:=user;
IdFTP1.Password:=pass;
IdFTP1.Connect;

проблема в том, что при запуске приложения компилятор ругается на эти 2 строчки
IdFTP1.OnWork := FTPWork;
IdFTP1.OnWorkBegin := FTPWorkBegin;
процедуры FTPWork и FTPWorkBegin должным образом прописаны.

Немогу понять в чем дело... Почему не хочет нормально работать?

[NumLock]

закомментируй 3 и 4 строчки, если не хочется создавать обработчики:

Код:

  TWorkBeginEvent = procedure(Sender: TObject; AWorkMode: TWorkMode;
   const AWorkCountMax: Integer) of object;
  TWorkEndEvent = procedure(Sender: TObject; AWorkMode: TWorkMode) of object;
  TWorkEvent = procedure(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer)
   of object;