Sí, yo tengo algunos comentarios.
El primero es para pedirte que no escribas cosas como
Código Delphi
[-]
if AutomaticScroll = True then
ya que es redundante; basta poner
Es como decir "orillate a la orilla", "sube arriba", "sal afuera"; se entiende pero suena feo.
Otra cosa es que no entiendo el propósito de las propiedades VerticalScrollBar y HorizontalScrollBar. Si las pones en
false pero AutomaticScroll está en
true, de todas maneras aparecen si hay muchos registros.
Finalmente, que estas propiedades deben tener un "setter"
Código Delphi
[-]
property AutomaticScroll: Boolean read FAutomaticScroll write SetAutomaticScroll;
en el que obligues al control a reajustarse para reflejar el cambio.
// Saludos