procedure Twm.wmsseAction(Sender: TObject; Request: TWebRequest;
  Response: TWebResponse; var Handled: Boolean);
var
   rs: TWebResponseStream;
  i, id:integer;
begin

   rs:=TWebResponseStream.BeginEventsStream(response) ;
    id:=1;
  for I := 0 to 50 do

     begin

         rs.WriteEvent('ddd');
         rs.WriteID(id.ToString );
         rs.WriteData('time'+ datetimetostr(now)   );
         rs.EndEvent;
         inc(id);
         sleep(2000);
     end;
end;