Нетребовательная операционная система для ноутбука

type
  IMyInterface = interface
    ['{GUID}']
    procedure DoSomething;
  end;
 
  TMyClass = class(TInterfacedObject, IMyInterface)
  private
    FName: string;
  public
    procedure DoSomething;
    constructor Create(const AName: string);
    destructor Destroy; override;
  end;
 
procedure TMyClass.DoSomething;
begin
  WriteLn('Doing something: ' + FName);
end;
 
constructor TMyClass.Create(const AName: string);
begin
  inherited Create;
  FName := AName;
  WriteLn('Created: ' + FName);
end;
 
destructor TMyClass.Destroy;
begin
  WriteLn('Destroyed: ' + FName);
  inherited;
end;
 
// тут не нужен Free
procedure Test;
var
  Intf: IMyInterface;
begin
  Intf := TMyClass.Create('Object1'); // счетчик = 1
  Intf.DoSomething;
end; // при выходе счетчик становится 0 - объект автоматически уничтожается

type
  ILogger = interface
    procedure Log(const Msg: string);
  end;
 
  TFileLogger = class(TInterfacedObject, ILogger)
  public
    procedure Log(const Msg: string);
  end;
 
function CreateLogger: ILogger;
begin
  Result := TFileLogger.Create;
end;
 
procedure UseLogger;
var
  Logger: ILogger;
begin
  Logger := CreateLogger;
  Logger.Log('Test message');
  // Не нужно Free - автоматически уничтожится
end;

property RefCount: Integer read FRefCount;