fpcsrc/tests/tbs/tb0280.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14

{ Old file: tbs0332.pp }
{  }

{$MODE objfpc}
uses Classes;
var
  o: TComponent;
  begin
    o := TComponent(TComponent.NewInstance);
    o.Create(nil);
    o.Free;
  end.