curl jak rozlaczyc sie i znow polaczyc w delphi

Witam mam taki kod :

procedure petelka(referer,urll:string);
var
a:integer;
curl:tcurl;
begin


for a:=0 to strtoint(form1.edit1.Text) do
begin
Application.ProcessMessages;
form1.label2.Caption:=inttostr(a);
  cURl := tcurl.Create(nil);

curl.URL:=urll;
curl.Referer:=referer;

form1.Label4.Caption:=urll;
form1.Label5.Caption:=referer;
 curl.Perform;

 curl.free;

end;

end;

kod ten ma za zadanie polaczyc sie tylko ze strona i rozlaczyc sie , nastepnie zmieniam referer url i lacze sie kolejny raz, nie wiem jednak jak w prosty sposob rozlaczyc sie i znow polaczyc, gdy stosuje ten kod pamiec w minute rosnie o 10 mb wiecej w pamieci operacyjnej... jak to zoptymalizowac abym nie musial tworzyc caly czas w petli tcurl.Create(nil); ..... jesli tego nie robie komponent nie laczy sie prawidlowo, polaczy sie raz ze strona i nie wiem jak sie rozlaczyc... :/ dzieki za pomoc