//...
  TCameraResultEvent = procedure(Sender: TObject) of object;

  CamThread = class;

  TLTB = class(TWinControl)
  private
    { Private-Deklarationen }
    Thread : CamThread;
    FOnCameraResult: TCameraResultEvent;
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
    constructor Create(Owner: TComponent); override;
    procedure StartEvent;
    procedure StartThread;
  published
    { Published-Deklarationen }
    property OnCameraResult : TCameraResultEvent
      read FOnCameraResult write FOnCameraResult;
  end;

  PTestRecord =^ TTestRecord;
  TTestRecord = record
    amin,amax,bmin,bmax,intensity,blueshift: Integer;
  end;

  CamThread = class(TThread)
  private
    FWin : TLTB;
    procedure UpdateLabel;
  public
    constructor Create(CreateSuspended :boolean; TwinC: TLTB);
  protected
    procedure Execute; override;
  end;
//..
constructor CamThread.Create(CreateSuspended: boolean; TwinC: TLTB);
begin
  inherited Create(CreateSuspended);
  FWin := TwinC;
end;