procedure TForm1.VirtualStringTreePaintText(Sender: TBaseVirtualTree; const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
  TextType: TVSTTextType);
begin
  case Column of
    0: TargetCanvas.Font.Style := [fsBold];  // make the first column text bold style, default color
    1: TargetCanvas.Font.Color := clRed;     // make the second column text normal style, red color
  end;
end;