fpc/tests/tbs0207.pp
1999-06-01 00:28:22 +00:00

9 lines
94 B
ObjectPascal

{$mode delphi}
var i : longint;
begin
for i:=1 to 100 do
tobject.create.free;
end.