SendMessage 好像不可以啊，没有相应的消息

我做过把控件传进去的...
function NewThread(PB:TProgressBar):LongInt;stdcall;

方法一：可以自己添加一个 SendMessage 消息函数，很简单的

方法二：也可以建立一个DLL文件，如楼上所说的建一个函数传递

方法三：利用注册表记录控件名称，这里给出这种代码：

  在单元开始的 uses 里加上 Registry 引用，我这里就创建一个过程吧
  这个函数是在要记录控件名称的单元里写的，
  procedure RemeberControlName;
  var
    mReg:Tregistry;
  begin
    mReg := Tregistry.create;
    try
      with mReg do
      begin
        RootKey := HKEY_LOCAL_MACHINE ;
        if not KeyExists('System\SoftwareInformation') then
        begin
          if  OpenKey('System\SoftwareInformation',true) then
          begin
            WriteString('ControlName',name);
          end;
      end;
     finally
       mReg.free;
     end;
  end;

下面的这个函数是在要读取控件名称的单元里写的，同样要在单元uses里加上Registry，也创建一个过程吧
 
  procedure ReadControlName;
  var
    mReg:Tregistry;
    mName :string; //获取控件名称的变量
  begin
    mReg := Tregistry.create;
    try
      with mReg do
      begin
        RootKey := HKEY_LOCAL_MACHINE ;
        if OpenKey('System\SoftwareInformation',false) = true then
          mName := ReadString('ControlName',name);
      end;
    finally
      mReg.free;
    end;
  end;