delphi nie zwalnia pamieci komponentu

Witam mam taki kod

procedure utworz;
var
a:integer;
curl:tcurl;
begin
for a:=0 to 100 do
begin
 cURl := tcurl.Create(nil);

 curl.Perform;
 curl.Free; //tutaj delphi powinno zwolnic pamiec lecz w menedzerze pamieci sprawdzajac poziom wykorzystania pamieci przez aplikacje nic sie nie zwalnia tylko rosnie podczas dzialania programu
end;
end; 

i moje pytanie , w jaki sposob poprawic ten kod abym widzial ze program zwalnia ta pamiec, bo ten kod tego nie robi , pamiec tylko rosnie nic nie zwalnia ... dziekuje za pomoc

procedure utworz;
var
a:integer;
curl:tcurl;
begin
try
for a:=0 to 100 do
begin
 cURl := tcurl.Create(nil);
 curl.Perform;
  finally
   curl.Free;
  end;    
end;
end; 

poprawka

procedure utworz;
var
a:integer;
curl:tcurl;
begin
try
 for a:=0 to 100 do
   begin
   cURl := tcurl.Create(nil);
   curl.Perform;
   end;
finally
 curl.Free;
end;
end; 

probowalem w ten sposob juz wczesniej to nic nie daje, dalej jest tak samo pamiec rosnie tak samo, nic sie nie zwalnia.