program project1;

{$mode objfpc}{$H+}

uses
  SysUtils;

type
  TTest = class
  end;

  ITest = interface
    ['{F9CE1704-0276-426A-BBF7-195187BAE47E}']
  end;

  TITest = class(TInterfacedObject, ITest)
  end;

const
  COUNT = 100000000;
var
  I: Integer;
  VTest: TTest;
  VITest: ITest;
  B, E: TDateTime;
begin
  B := Now;
  for I := 1 to COUNT do
  begin
    VTest := TTest.Create;
    VTest.Destroy;
  end;
  E := Now;
  WriteLn('C: ', FormatDateTime('hh:nn:ss.zzz', B - E));

  B := Now;
  for I := 1 to COUNT do
  begin
    VITest := TITest.Create;
    VITest := nil;
  end;
  E := Now;
  WriteLn('I: ', FormatDateTime('hh:nn:ss.zzz', B - E));

  Sleep(1000);

  B := Now;
  for I := 1 to COUNT do
  begin
    VITest := TITest.Create;
    VITest := nil;
  end;
  E := Now;
  WriteLn('I: ', FormatDateTime('hh:nn:ss.zzz', B - E));

  B := Now;
  for I := 1 to COUNT do
  begin
    VTest := TTest.Create;
    VTest.Destroy;
  end;
  E := Now;
  WriteLn('C: ', FormatDateTime('hh:nn:ss.zzz', B - E));

  WriteLn('Press [ENTER] to exit ...');
  ReadLn;
end.