ازادسازی حافظه از فرم ها در دلفی

ازادسازی حافظه از فرمهای ایجاد شده 

var str_:tstringlist;

    i:integer;

begin

  str_:=tstringlist.Create;

  str_.Clear;

  for i:=0 to screen .FormCount-1 do

  begin

    if       (Screen.Forms[i].Name ='fmain')   then    Continue;

   Str_.add(screen .forms[i].Name) ;

  end;

  for  i:=0 to str_.Count-1 do

    (Application.FindComponent(str_.Strings[i])).free;

  str_.Free;

  ShowMessage' ok free  ');