ListViewでアイテムが見える位置までスクロールする

ListView のノードをコード内で選択しても、スクロールしなければ見えない場所に項目がある可能性があります。この場合 TListViewは自動でその位置までスクロールして、、、くれません。 ListItem の MakeVisible メソッドを使うとそのアイテムが表示される位置までスクロールされます。

■ 見える位置までスクロール 
//項目追加
procedure TForm1.Button1Click(Sender: TObject);
var
  NewItem : TListItem;
  ix      : integer;
begin
  for ix  :=  0 to  100 do  begin
    NewItem         :=  ListView1.Items.Add();
    NewItem.Caption :=  Format('ITEM %d',[ix]);
  end;
end;

//スクロール
procedure TForm1.Button2Click(Sender: TObject);
begin
  ListView1.Selected  :=  ListView1.Items[ListView1.Items.Count - 1];
  ListView1.Selected.MakeVisible(True);
  ListView1.SetFocus();
end;