Why my output result TvirtualStringTree shows only word node

Delphi
Why my output result TvirtualStringTree shows only word node
Problem: The output value should be the value i retrieved from database but now what i get is the word node.
HOw to solve my code is below

Unit
 
interface
 
uses
   VirtualTrees
 
type
   vst: TVirtualStringTree;
    
 
  private
  
 
  public
    
  end;
 
 
  Pview = ^TTreeView;
  TTreeView = record
  studentID   : Integer;
  studentName : String;
  end;
 
 
//get student detail from database
procedure TForm.GetStudents();
var
  Node: PVirtualNode;
  PMyView: Pview ;
begin
  
       Clear;
       Add('SELECT STUDENTID, STUDENTNAME FROM STUDENTSTABLE');//get student detail
       open;
 
 
       if (not EOF)then//if not EOF then clear vst
       begin
       vst.Clear;
       
       while (not EOF) do // while not EOF begin
       begin
       vst.NodeDataSize := SizeOf(PMyView);  //get size of tree
       Node := vst.AddChild(nil);  //add node
 
       PMyView := vst.GetNodeData(Node);  //get node
       with PMView^ do  //put value to node and show on virtualstringview
       begin
           StudentID := IntToStr(FieldByName('STUDENTID').AsInteger);
           StudentName := FieldByName('STUDENTNAME').AsString;
       end;
          Next;
        end;
       
      end;
    
end;
 
 
procedure TForm.btnClick(Sender: TObject);
begin
   GetStudents();
 
end;

Select allOpen in new window