La respuesta seria usar una serie de
if anidados, uno por cada valor posible. Pero eso no quedaría "bonito", así que porque no usar un TStringList:
Código Delphi
[-]
var
Lista: TStringList;
Lista:= TstringList.Create;
Lista.Values['HOLA']:= 'Hola, ¿qué tal?';
Lista.Values['GUILLERMO']:= '¿Cómo estás, Guillermo?';
Lista.Values['PEPE']:= 'Uy, ese nombre no me suena';
Saludo:= 'Hola';
ShowMessage(Lista.Values[Uppercase(Saludo)]);
Lista.Free;
También puedes cargar la lista desde un archivo de texto, donde cada linea tiene el siguiente formato: Nombre=Valor