ProgressBar for Upload with TIdHTTP

Ok, I'm wanting to have a progress bar as I upload.I'm trying to use OnWork, BeginOnWork, and EndOnWork.But I get the errors:[code][BCC32 Error] Unit1.cpp(71): E2316 '_fastcall TForm1::IdHTTP1Work(TObject *,TWorkMode,const int)' is not a member of 'TForm1'[BCC32 Error] Unit1.cpp(79): E2316 '_fastcall TForm1::IdHTTP1WorkBegin(TObject *,TWorkMode,const int)' is not a member of 'TForm1'[BCC32 Error] Unit1.cpp(85): E2316 '_fastcall TForm1::IdHTTP1WorkEnd(TObject *,TWorkMode)' is not a member of 'TForm1'[/code]