[ecfisa]

Hola GerTorresM.

Con una constante pura no, pero podes usar una constante de tipo.

Ejemplo:

Código Delphi [-]
...

{$J+} // {$WRITEABLECONST ON}
const
  ConcatChar: char = #0;  // constante de tipo
{$J-} // {$WRITEABLECONST OFF}

function SetConcatChar(const DBEngine: Integer): char;
begin
  case DBEngine of
    1: Result:= '&';
    2: Result:= '+';
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ConcatChar:= SetConcatChar(Random(2)+1);
  Caption:= ConcatChar;
end;

Saludos