Como crear un campo en tiemo de ejecucion

[xerkan]

Me gustaria añadir un campo de tipo lookup en tiempo de ejecucion sobre una tabla, lo estoy creando de esta manera:

var
Campo:TStringField;
ident:TIntegerField;
begin
with datamodule do
begin
ident:=TIntegerField.Create(nil);
ident.FieldName:='IDcampo';
ident.FieldKind:=fkData;
ident.Name:='IDcampo';
qryTabla.Fields.Add(ident);

Campo:=TStringField.Create(nil);
Campo.DisplayLabel:='Nombre';
Campo.FieldKind:=fkLookup;
Campo.FieldName:='NOMBRE';
Campo.LookupDataSet:=qryTabla2;
Campo.LookupKeyFields:='IDcampo';
Campo.LookupResultField:='NOMBRE';
Campo.KeyFields:='IDcampo';
Campo.Size:=30;
Campo.Lookup:=True;
Campo.Name:='Campo';
qryTabla.Fields.Add(Campo);
end;
end;

pero al abrir la tabla me suelta una violacion de acceso