오늘 후배가 물어봤다.
리스트뷰에서 Items중 하나를 선택 했는데, 도대체 스크롤이 안됩니다. 어찌해야 하나여?
흠… 잘.. 이라고 말해줬다.

procedure TForm2.Button2Click(Sender: TObject);
var
  vPoint: TPoint;
begin
  ListView1.ItemIndex     := StrToInt(Edit1.text);

  vPoint := ListView1.Items[StrToInt(Edit1.text)].GetPosition;
  ListView1.Scroll(vPoint.X, vPoint.Y - ListView1.Height div 2);
  ListView1.SetFocus;

end;

procedure TForm2.ListView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  If ListView1.GetItemAt(X, Y) <> nil then
    caption := ListView1.GetItemAt(X, Y).caption;
end;