[Casimiro Notevi]

Recuerda poner etiquetas cuando muestres código, ejemplo:




Tu código quedaría así:

Código Delphi [-]
procedure TPrincipal.Consultar1Click(Sender: TObject);
var
    FCEmpresas: TFCEmpresas;
begin
    Datamodule2.AQEmpresas.SQL.Clear;
    datamodule2.AQEmpresas.Active:= false;
    Datamodule2.AQEmpresas.SQL.Text:= ('select id_empresa, empresa from empresas order by id_empresa');
    FCEmpresas:= TFCEMpresas.Create(Application);
    with FCEmpresas do
    begin
        DBGCEmpresas.DataSource:= Datamodule2.DSEmpresas;
        datamodule2.AQEmpresas.Active:= true;
        DBGCEmpresas.columns.add.fieldName:='id_empresa';
        DBGCEmpresas.columns.Add.FieldName:= 'empresa';
        DBGCEmpresas.Columns[0].Title.Caption:= 'Id';
        DBGCEmpresas.Columns[1].Title.Caption:= 'Empresa';
        Show();
    end;