TPTCWrapperThread

type TPTCWrapperThread = class(TThread)

protected

  procedure Execute; override;

public

  constructor Create;

  destructor Destroy; override;

  procedure Open();

  procedure Close;

  function Option();

  function Modes;

  procedure SetVisualPage();

  function Lock();

  procedure Unlock;

  function PaletteLock;

  procedure PaletteUnlock;

  function NextEvent();

  function PeekEvent();

  function MoveMouseTo();

  property IsOpen: Boolean; [r]

end;

TPTCWrapperThread

TObject