// ListBoxItem12 - это итем.
// Скрол по вертикали, итем оказывается в самом верху ListBox.  
procedure TForm1.Button1Click(Sender: TObject);
begin
   ListBox1.ScrollTo(0, -ListBoxItem12.Position.Y);
   ListBox1.ItemIndex := ListBoxItem12.Index;
//   ListBox1.Selected := ListBoxItem12;
end;