{$mode delphi}
 var i : longint;

begin
   for i:=1 to 100 do
     tobject.create.free;
end.