[AntiMag1991]

Помогите понять этот компонент!

пример моей программы я не пойму как сделать вывод name2
Код где производится вывод как я понял VST1GetText,но как правильней сделать не знаю.
Если есть у кого нить примеры, покидайте мне их пожалуйста! Уже где то месяц пытаюсь понять этот компонент.

Код:

Tdata = record
    name1:Srting[255];
    name2:String[255];
    chislo1:integer;
    chislo2:integer

Код:

procedure TForm_VST.FormCreate(Sender: TObject);
var
  RootNode, ChildNode: PVirtualNode;
  I, J: integer;
begin
  VST1.NodeDataSize := SizeOf(TNodeBilder);
  for I := 0 to 1 do
  begin
    RootNode := VST1.AddChild(nil);
    if I = 0 then
    begin
      TData := VST1.GetNodeData(RootNode);
      TData.name1:= 'Гравная строка 1';
      for J := 1 to 5 do
      begin
        ChildNode := VST1.AddChild(RootNode);
        TData := VST1.GetNodeData(ChildNode);
        TData.name2:= 'пулл' + inttostr(J);
        TData.chislo2:=  J;
      end;
    end;
    if I = 1 then
    begin
      TData := VST1.GetNodeData(RootNode);
      TData.name1:= 'Гравная строка 2';
    end;
  end;
end;

Код:

procedure TForm_VST.VST1GetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
  Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
var
  I, J: integer;
begin
  TData := Sender.GetNodeData(Node);

  case Column of
    - 1, 0:
      begin
        if Assigned(TData) then
          CellText := TData.name1   
        else
          CellText := TData.name2;
      end;
    1:
      begin
        if Assigned(TData) then
          CellText := TData.chislo2;
      end;
  end;
end;