{$mode delphi}
 var i : longint;

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