[rgstuamigo]

Personalmente no lo veo muy complicado, a menos que no te haya entendido bien, pero si de lo que se trata es de saber exactamente que es un determinada "Cosa"(persona, animal o cosa) pues tranquilamente puedes hacerte una Funcion que te busque dicha Cosa en tu archivo y te devuelva "lo que és", en un string mas o menos asi:

Código Delphi [-]
function TForm1.Que_es_esto(const Algo: String): String;
var
aux:TStrings;
i,p:Integer;
s:String;
begin
Result:='Es otra cosa';
 aux:=TStringList.Create;//creo una lista auxiliar
  try
   aux.LoadFromFile('MiArchivo.txt'); //leo el contenido del archivo a mi lista
    for i := 0 to aux.Count-1 do //iteramos para buscar
    begin
        p:=pos('=',aux[i]); //saco la posiscion del caracter '='
        s:=Trim(copy(aux[i],1,p-1));//copio parte de string hasta la posicion del "=" - 1(menos uno)
        if CompareText(s,algo)=0 then //comparo si es el objeto o cosa que busco
         begin
           Result:=Trim(copy(aux[i],p+1,length(aux[i])-p));//copio la segunda parte del string es decir "lo que és".
           Break;//rompo el ciclo
         end;
    end;
  finally
   aux.Free;//Libero mi lista auxiliar
  end;
end;

Con eso solucionas tu problema.
Un ejemplo de uso sería:

Código Delphi [-]
var respuesta:String
begin
respuesta:=Que_es_esto('Jupiter');
ShowMessage(respuesta);
end;

Por demás está decirte que tu archivo donde guardarás la definiciones debe tener el formato adecuado..
Espero te sea de Ayuda.
Saludos...