[xangiesaurx]

Muchas gracias por su ayuda, lo eh intentado y me sigue marcando este error:
"[dcc64 Error] BaseClass.pas(9911): E2197 Constant object cannot be passed as var parameter"

Y el código lo eh dejado de la siguiente manera en lo que encuentro como hacerlo funcionar:

procedure TBCAMThread.Close;
var
  Thread: THandle;
begin
  {$IFDEF WIN32}
    Thread := InterlockedExchange(Integer(FThread), 0);
  {$ELSE}
  {$IFDEF WIN64}


  {$ENDIF}
  {$ENDIF}
  if BOOL(Thread) then
  begin
    WaitForSingleObject(Thread, INFINITE);
    CloseHandle(Thread);
  end;
end;