anti freeze idhttp

[XXcD]

Also die Process message ist schon drin

Delphi-Quellcode:

procedure TForm13.IdHTTPWork(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Integer);
begin 
  if not((GetTickCount - FTime) <= 0) then 
  begin 
    try 

    except 
    end; 
  end; 
  FTime := GetTickCount; 
  FBytes := AWorkCount; 
  Application.ProcessMessages; 
end;