Referencia a una const

[sleep25000]

Hola,
Necesito crear o hacer referencia a una constante según la opción elegida.
Por ejemplo:
Tengo dos TClientDataSet(Pedidos y Albaranes) en la unidad de datos, los dos tiene en el evento "BeforeOpen" el siguiente procedimiento:

Código Delphi [-]
 
procedure TDatos.Abrir(DataSet: TDataSet);
var
  D: TClientDataSet;
begin
  D := DataSet as TClientDataSet;
  if D.Name = 'Pedidos' then
    D.CommandText := 'ct_SQL_ ' + D.Name // formar la constante ct_SQL_Pedidos
  else
    D.CommandText := ct_SQL_Albaranes;
end;

Mi pregunta es: ¿Como puedo construir la constante "ct_SQL_Pedidos"?

Ahora solo tengo dos TClientDataSet, pero en un futuro tendre muchos.