No utilicé el Top, utilicé el Height para agrandar los IWRegion y de esta forma se mueven varios componentes para abajo
Tambien definí una constante nAltoLineaGrid = 24 la cual multiplico por la cantidad de líneas que tienen los Querys
y me quedó así
Código Delphi
[-]
procedure TIndustriasF.IWAppFormRender(Sender: TObject);
var n:integer;
begin
PermisoEditar(bEdicion);
n := UserSession.dm22.Query1.RecordCount * nAltoLineaGrid;
IWRegion1.Height := IWRegion1.Height + n;
n := UserSession.dm22.Query2.RecordCount * nAltoLineaGrid;
IWRegion2.Height := IWRegion2.Height + n;
...
end;
Me imagino que esta no es la forma mas adecuada pero funciona
Muchas gracias Caro