Campos calculate y lookup

[__cadetill]

No, si te he entendido perfectamente, el que creo que no me has entendido eres tu a mi (quizás es que no me he explicado demasiado bien)

Veamos

Yo creo dos campos calculados que seran DescripcionProvincia y DescripcionLocalidad de tipo alfanumerico, ok??

Bien, ahora en el OnClacFields de la tabla en cuestion (la que tienes el 12005) haces lo siguiente :

procedure TForm1.Table1CalcFields(DataSet: TDataSet);
var
  tmp: string;
begin
  tmp := copy(TablaCampoCompuesto.AsString, 1, 2);
  if TablaProvincia.FindKey([tmp]) then
    Tabla1DescripcionProvincia.AsString := TablaProvinciaDescipcion.AsString
  else
    Tabla1DescripcionProvincia.AsString := '';

  tmp := copy(TablaCampoCompuesto.AsString, 3, 4);
  if TablaLocalidad.FindKey([tmp]) then
    Tabla1DescripcionLocalidad.AsString := TablaLocalidadDescipcion.AsString
  else
    Tabla1DescripcionLocalidad.AsString := '';
end;

Bueno, esto haciendolo con Tablas y FindKey. Personalmente lo haria con una Query, pero para que veas la idea ya vale

Espero me hayas entendido ahora