procedure TForm1.Button1Click(Sender: TObject);
begin
  IdHttp1.Get('http://192.168.1.1/DSC00880.jpg');
end;    // OnWork 事件的 AWorkCount 表示現在已下載或上傳多少 bytes
procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  StatusBar1.Panels[1].Text := 'WorkCount: '   IntToStr(AWorkCount);
  StatusBar1.Refresh;
end;    // OnWorkBegin 事件的 AWorkCountMax 表示共有多少 bytes 要下載或上傳procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  StatusBar1.Panels[0].Text := 'WorkCountMax: '   IntToStr(AWorkCountMax);
  StatusBar1.Refresh;
end;    // OnWorkEnd 事件表示下載或上傳完成
procedure TForm1.IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
  showmessage('download/updload end');
end;