求救，这里写的DLL读取Form内控件名称，为什么会乱码？

procedure WinTran(Fm:TForm);
var i,j,k:integer; s:string;
begin
  with fm do
  begin
    for i:=0 to componentcount-1 do
    begin
        if SameText(components[i].ClassName,'TMenuItem') then
        begin
          s:=TMenuItem(components[i]).Caption; //这里读到的都是乱码
        end;
    end;
  end;
end;