asignar valor a variable por medio de nombre

[ocram]

lo que pasa es lo siguiente tengo una aplicacion que tiene cerca de 50 constantes y las tiene en el codigo y las quiero poner en una base de datos y de ahi jalar los valores, actualmente estan de la siguiente forma

const
cstrImpAddCC: String = 'ImpAddCC';
cstrImpAirFare: String = 'ImpAirFare';
cstrMantFloat: String = 'MantFloat';
cstrMantFix: String = 'MantFix';
...

entonces lo que quiero hacer es crear una tabla asi
VARIABLE VALOR
=========+=====
cstrImpAddCC ImpAddCC
cstrImpAirFare ImpAirFare
cstrMantFloat MantFloat
cstrMantFix MantFix

y ya en delphi crear las variables y asignarles el valor dependiendo del nombre


var
cstrImpAddCC: String;
cstrImpAirFare: String;
cstrMantFloat: String;
cstrMantFix: String;
...
//mas pseudocodigo
procedure asignavalor();
begin
consulta.open;
while not consulta.eof do begin
variable(consulta.fieldbuname('variable').asstring):= consulta.fieldbyname('valor').asstring;
consulta.next
end;
end;

y de esta forma asignar el valor a todas las variables, aqui el detalle es que como esas constantes se usan en todo el codigo entonces esta muuy complicado cambiarles el nombre