Program test;
var
  r: TObject;
begin
  r := TObject.Create;
  r.Free;
end.