1:
2:

Project Project1.exe raised exception class EInvalidOp with message 'Invalid floating point operation'.
Process stopped. Use Step or Run to continue.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:

procedure TDownloadThread.HTTPWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
var
  TotalTime: TDateTime;
  H, M, Sec, MS: Word;
  DLTime: Double;
  AverageSpeed, temp: Extended;
  Zeit : string;
begin
  MinKB := AWorkCount;
  Form1.liste.Items[ItemNR].SubItems[2] := IntToStr(MaxKB div 1024)+' KB';

  TotalTime :=  Now - STime;
  DecodeTime(TotalTime, H, M, Sec, MS);
  Sec := Sec + M * 60 + H * 3600;
  DLTime := Sec + MS / 1000;                         //Ausrechnung des downloadspeeds
  if DLTime > 0 then
    AverageSpeed := (AWorkCount / 1024) / DLTime;
  Speed := FormatFloat('0 KB/s', AverageSpeed);

  if not(AverageSpeed=0) then temp:=((MaxKB - MinKB) / 1024) / AverageSpeed else temp:=0;
  if temp>0 then
  begin
    if temp>=60 then
    begin
      if temp>=3600 then
      begin
        Zeit:=FloatToStr(temp/60);
        Zeit:=Copy(zeit, 0, 3) + 'h';                          //zeit verbleibend
      end;
      Zeit:=FloatToStr(temp/60);
      Zeit:=Copy(zeit, 0, 3) + 'm';
    end
    else
      Zeit:=FloatToStr(temp) + 's';
  end
  else
    Zeit:='0s';

  Form1.liste.Items[ItemNR].SubItems[4] := Zeit+' '+Speed;

  Application.ProcessMessages;
end;

procedure TDownloadThread.HTTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  STime:=Now;
  MaxKB := AWorkCountMax;
  Form1.liste.Items[ItemNR].SubItems[2] := IntToStr(MaxKB div 1024)+' KB';
  Application.ProcessMessages;
end;                    

1:
2:

FloatToStr(AverageSpeed);
  if not(round(AverageSpeed)=0) then temp:=round(((MaxKB - MinKB) / 1024) / round(AverageSpeed)) else temp:=0;                    

1:

FloatToStr(AverageSpeed);                    

1:
2:

HTTP.Get(DownloadURL);
DownloadSize := HTTP.Request.ContentLength;