Hola amigo.
En principio veo que tendrías que cambiar:
Código Delphi
[-]
...
DataModule1.EDBQuery1.SQL.Add('SELECT * FROM FAMILIAS ORDER BY CODIGO');
DataModule1.EDBQuery1.ExecSQL;
...
Por:
Código Delphi
[-]
...
DataModule1.EDBQuery1.SQL.Add('SELECT * FROM FAMILIAS ORDER BY CODIGO');
DataModule1.EDBQuery1.Open;
...
Saludos.