Hola GerTorresM.
Con una constante pura no, pero podes usar una constante de tipo.
Ejemplo:
Código Delphi
[-]
...
{$J+} const
ConcatChar: char = #0; {$J-}
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