遍历控件.....help

function AUTOAdapt(Tfm:TWinControl{容器};wint1,hint1:Integer{开发时的分辨率};DeftB:Boolean=false{容器是否也调整}):Boolean;
var
  i,j:Integer;
  vl_ScreenWidth,vl_ScreenHeight: LongInt;
  WRadio,HRadio :  double ;
  temp:TControl;
begin
try
result:=false;
 vl_ScreenWidth  := Screen.Width;
 vl_ScreenHeight := screen.height;
WRadio := vl_ScreenWidth/wint1 ;
HRadio := vl_ScreenHeight/hint1 ;
if (WRadio=1) and (HRadio=1 ) then
begin
  Result:=True; Exit;
end;  
if DeftB=true then
with Tfm do
begin
  Width:=Round(width*WRadio);
  Height:=Round(Height*HRadio);
  left:=Round(left*WRadio);
  top:=Round(top*HRadio);
end;for i:=0 to (Tfm.ControlCount)-1  do
begin
temp:=Tfm.Controls[i];
  with temp do
  begin
    Width:=Round(width*WRadio);
    Height:=Round(Height*HRadio);
    left:=Round(left*WRadio);
    top:=Round(top*HRadio);
  end;
  try
    if UpperCase(temp.ClassName)='TTOOLBAR' then
    with (temp as TTOOLBAR) do
    begin
      buttonWidth:=Round(buttonwidth*WRadio);
      buttonHeight:=Round(buttonHeight*HRadio);
    end
    else
    if (temp as TWinControl).ControlCount>0 then //如果是容器就 递归调用
      AUTOAdapt(temp as TWinControl,wint1,hint1,false);
  except
    Exit;  
  end;
end;
result:=True;
except
  Result:=False;
end;
end;此函数有什么 缺陷??
怎么样才能达到目的