Una curiosidad

[Pandre]

Hola a todos:

Hay casos en los que en mis aplicaciones se me hace necesario contar con una función cuyo funcionamiento lo explico con un ejemplo.
Supongamos que tengo una tabla con 3 campos: ID, NOMBRE, APELLIDO. Entonces, sabemos un valor de ID y de él queremos saber a que NOMBRE pertenece. Es decir, le damos a la función el valor X, y la función buscará en la tabla y devolverá el valor del campo NOMBRE al que pertenece dicha ID.

Yo lo implemento así:

function ObtenerDesdeID(ValorID: string): String;
begin
 if Tabla.FindFirst('ID', ValorID, [loCaseInsensitive]) then
    Result := Tabla.FieldByName('NOMBRE').AsString else
    Result := '';
end;

La verdad es que normalmente me funciona norm, pero a veces me falla.
La pregunta es: ¿sabéis de alguna función que haga lo mismo, pero de forma optimizada?

Gracias de antemano...