TGauge и утечка памяти

[Pcrepair]

Добрый день. Есть вроде бы стандартный код для отображения загрузки процессора на основе adCpuUsage

uses Gauges; (*в оригинале сам компонент на форму не ставится*)
.....

implementation
{$R *.dfm}
uses adCpuUsage;

procedure TForm2.FormCreate(Sender: TObject);
var
I:integer;
Gauge: TGauge;
begin
 for i:=1 to GetCPUCount-1 do
   begin
     try
       Gauge:=TGauge.Create(Form2);
       Gauge.Name:=Format('Gauge%d',[i]);
         with TGauge(FindComponent(Format('Gauge%d',[i]))) do
           begin
             Parent:=StatusBar;
             Top:=2;
             Width:=100;
             Height:=18;
             Left:=((i-1)*Width);
             MinValue:=0;
             MaxValue:=100;
             ForeColor:=clGreen;
           end;        
     except
       //
     end;
   end;
end;

procedure TForm2.Timer2Timer(Sender: TObject);
var
n:Integer;
CPU   : Integer;
begin
    CollectCPUData;
    for n:=1 to GetCPUCount-1 do
      begin
        TGauge(FindComponent('Gauge'+IntToStr(n))).Progress:=StrToInt(Format('%0.0f%',[GetCPUUsage(n)*100]));
        CPU:=StrToInt(Format('%0.0f%',[GetCPUUsage(n)*100]));
      end;
end;

и все вроде бы работает, но если добавить

initialization
ReportMemoryLeaksOnShutdown := true;
end.

то становится видна утечка памяти при закрытии формы. видимо дело в Gauge:=TGauge.Create(Form2); и в отсутствии соотвественно деструктора
Вопрос: как правильно при закрытии приложения уничтожить компонент, чтоб не было утечки памяти?

[Аватар]

Gauge объявить, например, в private формы. В OnCreate создание, а в OnClose или OnDestroy формы Gauge.Free

[Pcrepair]

ситуация немного изменилась:
если вместо TGauge использовать TChart (а там нет никакого СОЗДАТЬ) все равно та же же самая утечка памяти. похоже что то не так с adCpuUsage.pas
как локализовать код создающий утечку?(на что обратить внимание как на источник потенциальной утечки: TStringList и прочего из этой серии вроде нет ничего) чтоб потом доработать