Nodedarstellung im TTreeView verschieben

[himitsu]

Wäre wohl zu einfach?

Delphi-Quellcode:

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  if Assigned(TreeView1.Selected) then
    TreeView1.ScrollBy(19 - TreeView1.Selected.DisplayRect(True).Left, 0);
end;

Theoretisch sollte es klappen, aber irgendwas stimmt mit dem ScrollBy nicht.
Jedenfalls funktioniert es innerhalb dieser Ereignisprozedur nicht richtig.