TWebBrowser und OnProgressChange

[daniel8520]

Hallo,

irgendwie kann ich nicht mehr rechnen!
Ich wollte den prozentualen Ladestatus einer Website, in einer Extended-Var wieder geben. Hab das so gemacht:

Delphi-Quellcode:

procedure TMainForm.WebProgressChange(Sender: TObject; Progress,
  ProgressMax: Integer);
var
    EVar: Extended;
begin
   If not Progress = 0
   then
   EVar := (Progress*100) / ProgressMax;

end;

Funkt auch während dem Seitenaufbau ganz gut. Aber am Ende meldet er dann hier

Delphi-Quellcode:

procedure TMainForm.WebProgressChange(Sender: TObject; Progress,
  ProgressMax: Integer);
var
    EVar: Extended;
begin
   If not Progress = 0
   then
   {-->}EVar := (Progress*100) / ProgressMax{<--};

end;

"Ungültige Gleitkommaoperation"
Kann mir jemand sagen warum?