No entiendo bien la pregunta, creo que ¿te refieres a una constante "normal"?, ejemplo:
Código Delphi
[-]procedure TDatos.Abrir(DataSet: TDataSet);
const
_sql_ = 'select * from ';
var
D: TClientDataSet;
begin
D := DataSet as TClientDataSet;
if D.Name = 'Pedidos' then
D.CommandText := _sql_ + D.Name else
D.CommandText := ct_SQL_Albaranes;
end;