1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

function downloadatstartup(p: pointer): LongInt;
var
  rs: TFileStream;
  sl: TStringList;
  http2: TIdHTTP;
begin
  http2 := TidHttp.Create(nil);
  http2.Host:='geheim.de';
  try
    http2.Connect;
    try
      rs:=TFileStream.Create(ExtractFilePath(ParamStr(0)) + '\update.ini', fmcreate or fmOpenWrite);
      sl:=TStringlist.Create;
      http2.Get('/afm_startfiles/update.ini', rs);
    finally
      rs.free;
    end;
    sl.LoadFromFile(ExtractFilePath(ParamStr(0)) + '\update.ini');
    http2.Disconnect;
    sl.free;
  except
    // FEHLER
  end;
end;					

1:
2:

procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer);
procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: integer);