TreeView1.Selected.Data und Typenkonvertierungsfehler

[Muetze1]

Delphi-Quellcode:

Type
  PCLCategory = ^TCLCategory;
  TCLCategory = ...;

....

procedure TForm1.ActionShowCategoryDetailsExecute(Sender: TObject);
var 
  CLCategory: TCLCategory;
begin
  If Assigned(TreeView1.Selected) Then  // safety first...
  Begin
    CLCategory := PCLCategory(TreeView1.Selected.Data)^;

    ...
  End;
end;