有关dll的问题？请高手们看看！

问题如下： 
 现在在dll里完成的任务：
   1 dll从别的地方获取数据过来。
   2 将获取过来的数据赋值给窗体中的控件。
 第一步已经实现，但是获取过来的值怎么都赋值不了控件的值？
 代码如下：
  function GetAlarm(xmlAlarm: PChar; arg: Pointer; context: Pointer): Boolean;
 var
  params: TStrings;
  str1:string;
begin
  if xmlAlarm<>nil then
  begin
    try
      params := XML2Strings(StrPas(xmlAlarm));
      if Assigned(params) then
       begin
         ShowMessage(params.Text );
          str1:=params.Values['USER_LABEL'];  //获取过来的值。
        // ShowMessage(StrPas(xmlAlarm));
        // ShowMessage(params.Values['USER_LABEL']);
///////////////////////////////////////////////////////////////////////
          try
            frmTest:=TfrmTest.Create(nil);
            frmTest.ShowModal ;
            frmTest.Edit1.Text :='test';
            with frmTest do
             begin
               Showmessage('1111');
               ShowMessage(params.Values['USER_LABEL']);  
         //想把获取过来的值赋值给edit.text,但是怎么都不行。
               edit1.Text :='stringtest';
             end;
          finally
            FreeAndNil(frmTest);
          end;
//////////////////////////////////////////////////////////////////////
          
         params.Destroy;
       end;
    except
       showmessage('error');
    end;  end;  Result := True;
end;////......///////////区域中的语句，在执行过程中根本就没有起到作用？
谢谢大家！！