(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 должным образом прописаны.
Немогу понять в чем дело... Почему не хочет нормально работать?