freepascal.compiler/tests/tbs0207.pp

{$mode delphi}
 var i : longint;

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