1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

procedure SetTV_Size(TV: TTreeView);
var aRect : TRect;
    z,max : Integer;
begin
  with TV do
    begin
    FullExpand;
    TopItem := Items[0];
    Perform(WM_HSCROLL,SB_PAGELEFT,0);
    max := 0;
    for z := 0 to Items.Count-1 do
      begin
      aRect := Items[z].DisplayRect(True);
      if aRect.Right > max then
        max := aRect.Right;
      end;//Ende for
    aRect := Items[Items.Count-1].DisplayRect(True);
    Width := max+4;            //eventuell anpassen
    Height := aRect.Bottom+4;  //        "
    ShowScrollBar(Handle, SB_VERT, FALSE);
    ShowScrollBar(Handle, SB_HORZ, FALSE);
    end;//Ende with
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  SetTV_Size(TreeView1);
end;