function FindControl(Handle: HWnd): TWinControl;

var

  OwningProcess: DWORD;

begin

  Result := nil;

  if (Handle <> ) and (GetWindowThreadProcessID(Handle, OwningProcess) <> ) and

     (OwningProcess = GetCurrentProcessId) then

  begin

    if GlobalFindAtom(PChar(ControlAtomString)) = ControlAtom then

      Result := Pointer(GetProp(Handle, MakeIntAtom(ControlAtom)))

    else

      Result := ObjectFromHWnd(Handle);

  end;

end;

function ObjectFromHWnd(Handle: HWnd): TWinControl;

var

  OwningProcess: DWORD;

begin

  if (GetWindowThreadProcessID(Handle, OwningProcess) <> ) and

     (OwningProcess = GetCurrentProcessID) then

    Result := Pointer(SendMessage(Handle, RM_GetObjectInstance, , ))

  else

    Result := nil;

end;