新学DLL，如何把这个procedure写成DLL？

Question

procedure WinTran(Fm:TForm);
var i,j,k:integer;
begin
  with fm do
  begin
    for i:=0 to componentcount-1 do
    begin
        if (components[i] is TPanel)    then
        begin
          //...处理控件属性
        end;
    end;
  end;
end;

Answer 1

我在DLL中怎么也判断不了控件类型（Tmemo），怎么办？
if (components[i] is TMenuItem) then

Answer 2

还是不行.
现在是读到TMenuItem(components[i]).Caption的值都是乱码，请高手帮忙！