Crear loockup en ejecucion

[soloriv]

Hola y gracias a todos
Paso el siguiente codigo para crear tablas en ejecucion con lookup
campo:=tfields.create(nil)
with campo do
name:='nombre'
fieldname:='nombrefield'
fieldkind:=fklookup
lookup:=true
keyfields:='campo'
lookupdataset:=tabla
lookupkeyfields:=tabla.fields[x].xxx
lookupresultfields:=table.fields[y].xxx
visible:=true

Se que no es conveniente crear campos en ejecucion pero me gustaria que me digan una forma mas directa y sencilla de crear tablas con lookup, podria ser de una diseñada previamente y copiar de ella, etc. Esta forma me da error de no rerconocer al campo como de tipo lookup.
Saludos Soloriv.