procedure TForm1.VTDrawText(Sender: TBaseVirtualTree; TargetCanvas: TCanvas;
  Node: PVirtualNode; Column: TColumnIndex; const CellText: String;
  const CellRect: TRect; var DefaultDraw: Boolean);
var
  ActualClientRect,DisplayRect:TRect;
begin
  ActualClientRect:=Sender.GetDisplayRect(Node,0,True);
  DisplayRect:=Sender.ClientRect;
  //

  if (ActualClientRect.Bottom>=DisplayRect.Bottom)
      or not Assigned(Node^.NextSibling)
  then begin

      // Display Footer in the panel1
      if Column=0 then begin
        Self.Panel1.Canvas.Clear;
      end;
      Self.Panel1.Canvas.TextOut(CellRect.Left,3,'Footer ' + IntToStr(Column));

  end;
end;