마음의 안정을 찾기 위하여

procedure THTTP_FileUpload.IdHTTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  If Assigned(OnWorkBegin) Then
      If AWorkMode <> fWorkMode Then
         FOnWorkBegin(Sender, AWorkMode, AWorkCountMax);
end;

procedure THTTP_FileUpload.IdHTTPWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  If Assigned(OnWork) Then
      If AWorkMode <> fWorkMode Then
         FOnWork(Sender, AWorkMode, AWorkCount);
end;

procedure THTTP_FileUpload.IdHTTPWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
  If Assigned(OnWorkEnd) Then
      If AWorkMode <> fWorkMode Then
         FOnWorkEnd(Sender, AWorkMode);
end;