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