Se me ocurre que podrías hacerlo así:
Código Delphi
[-]Datamodule1.FIBDataBase1.Active:=False;
Datamodule1.FIBDataBase1.SQLs.SelectSQL.Add('SELECT EMID, EMNOMBRE, EMDESCRIPCION, EMRUTA FROM EMPRESAS WHERE EMACTIVA = ' + chr(39) + 'V' + chr(39) );
Datamodule1.FIBDataBase1.Active:=True;