type IInt = interface
event ev: procedure(sender: object);
end;
begin
  
end.