TMyClass = class
private
  FSample1: TSample1;
  FSample2: TSample2;
  ........
  FSampleN: TSampleN;
private
  function GetSample1: TSample1;
  function GetSample2: TSample2;
  ........
  function GetSampleN: TSampleN;
public
  destructor Destroy; override;
public
  property Sample1: TSample1 read GetSample1;
  property Sample2: TSample2 read GetSampleN;
  ........
  property SampleN: TSampleN read GetSampleN;
end;

function TMyClass.GetSample1: TSample1;
begin
  if FSample1 = nil then
    FSample1 := TSample1.Create(.......);
  Result := FSample1;
end;

function TMyClass.GetSample2: TSample2;
begin
  if FSample2 = nil then
    FSample2 := TSample2.Create(.......);
  Result := FSample2;
end;
......................
function TMyClass.GetSampleN: TSample1;
begin
  if FSampleN = nil then
    FSampleN := TSampleN.Create(.......);
  Result := FSampleN;
end;

destructor TMyClass.Destroy; override;
begin
  FSample1.Free;
  FSample2.Free;
  .............
  FSampleN.Free;
  inherited Destroy;
end;

var
  MyObj: TMyClass;
begin
  MyObj := TMyClass.Create(....);
  try
    MyObj.Sample3.DoSomething;
  finally
    MyObj.Free;
  end;
end;