Y si lo dejas un rato largo... como para ver qué pasa?
Has probado lo de meter mensajes en el BeforeOpen de las tablas ... quizás hay alguna que tarde más.
Por ejemplo:
Pones un label en el fondo de Form principal con alineación alBottom
Código Delphi
[-]procedure TDataModule.TablaAfterOpen(DataSet: TDataSet);
begin
FMPrincipal.Label1.caption := DateTimeToStr(Now)+' - Abriendo: '+DataSet.Name;
Application.ProcessMessages;
end;