ScrollBar Vertical del DBGRID desaparece

[le4br]

Hola,

Estoy hacendo un busca entre fechas (between), usando ADOQuery, y todo funciona bien. En el clic de un botón abro la consulta SQL en una tabla (Access), sin problemas (decena de rows son mostrados com el scroll vertical).

Dispos de una otra distinta busca, si el resultado de la consulta son una o pocas linas (rows) el Scroll vertical del DBGRid desaparece. hasta aki, ok! Pero cuando el usuario cancelar la busca (SQL.Clear) o hacer otra busca dondo son retornado decenas de linas, el scroll vertical del DBGRID no coinciden con la cantidad de registro que tenga la tabla, o sea, todos los resultados son retornados pero, el scroll nunca aparece.

Percebi que todo volta a funcionar (scroll bar aparecer) depois de hacer exactamente la misma busca 2 veces.

Para solucionar, estoy tentando forzar el scroll vertical a aparecer en el evento DataChange del DataSource. Algo como:

Código Delphi [-]
procedure TForm1.DataSource2DataChange(Sender: TObject; Field: TField);
begin
ShowScrollBar(DBGrid2.Handle, SB_VERT, ADOQuery2.RecordCount > 0);
end;

Pero tambien no funciona bien. Si alguien puede orientarme se lo agradeceré.

Saludos a todos!