Referencia a una const

[Casimiro Noteví]

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 // formar la constante ct_SQL_Pedidos   
  else     
    D.CommandText := ct_SQL_Albaranes; 
end;