Alguem tem a licensa da DevExpress ou mexe bem com TreeList

Estou com um problema serio com a DevExpress estou mexendo com TreeList 5.45 é uma nova versão desse componente e o mesmo codigo que antés na versão 4.5 funcionava agora não funciona mais

Se alguem que tiver a licensa poder me ajudar ficarei muito grato pois com a licensa é possivel enviar um projetinho demo para eles que eles enviam corrigido para a gente..

o meu problema esta nesse codigo é erro de AccessViolation
vejam o codigo


procedure TForm1.Button4Click(Sender: TObject);
Var I : Integer;
var Texto : String;
var tn : TcxTreeListNode;

Procedure Parametros(TreeList : TcxTreeList; tn : TcxTreeListNode);
Begin
with cxTreeView do begin
Tn.Focused := True;

Columns[0].Editing := True;
Tn.SelectedIndex := 0;
Tn.imageindex := 0;

Columns[1].Editing := True;
TcxComboBox(InplaceEditor).ItemIndex := 0; // Error AcessViolation
TcxComboBox(InplaceEditor).PostEditValue;

Columns[2].Editing := True;
TcxComboBox(InplaceEditor).ItemIndex := 1;
TcxComboBox(InplaceEditor).PostEditValue;
End;
End;

Function RetornoTextoTreeItem(tn : TcxTreeListNode) : String;
begin
if (Tn = nil) then Exit;
Texto := tn.Texts[0];
Parametros(cxTreeView, Tn);
Tn := Tn.getFirstChild;
while Tn <> nil do begin
RetornoTextoTreeItem(tn);
tn := tn.getNextSibling;
end;
end;

begin

with cxTreeView do begin
BeginUpdate;
Setfocus;
Root[0].Expand(true);
RetornoTextoTreeItem(TopNode);
Root[0].Collapse(true);
Root[0].Expanded := True;
endUpdate;
end;

end;