[Lazarus] fpWeb long process progress

[Leonardo M. Ramé]

As the subject says, I'm looking for a way to notify the caller of a
time consuming process.

An example could be this:

procedure TMyHandler.TimeConsumingProcess(Sender: TObject; ARequest:
TRequest; AResponse: TResponse; var Handled: Boolean); 
var
  I: Integer;
begin
  for I := 0 to 1000 do 
  begin
    AResponse.Content := IntToStr(I);
    Sleep(1000);
  end;
  Handled := True;
end;

Of course this doesn't work. How can I send responses by intervals?.

Regards,
-- 
Leonardo M. Ramé
http://leonardorame.blogspot.com