Hola GerTorresM.
No estoy con Delphi en esta máquina pero creo que sería algo así:
Código:
...
with TStringField.Create(Table1) do
begin
DataSet := Table1;
FieldName := 'Table1_NombreDeCampo';
FieldKind := fkLookup;
Name := Table1.Name + FieldName;
KeyFields := 'Table1_KeyFields';
LookupDataSet := Table2;
LookupKeyFields := 'Table2_KeyFields';
LookupResultField := 'Table2_Resultado';
FieldDefs.Add(FieldName, ftString, 30, False);
end;
En cuanto a postgress y zeos lamento no poder ayudarte ya que no los uso.
Pero create un nuevo hilo en el foro correspondiente y seguro que hay quien te pueda asesorar sobre ellos.
Saludos