procedure TForm.Create(Sender: TObject);
var
    Field1, Field2, Field3, Field4: TField

begin
      { +++++ ClientDataSet2 +++++ }
      { авто добавляемое поле порядкового номера }
      Field1 := TAutoIncField.Create(nil);
      Field1.FieldName := 'id';
      Field1.Visible := True;
      Field1.FieldKind := fkData;
      Field1.DataSet := ClientDataSet2;
      ClientDataSet2.Fields.Add(Field1);

      { текстовое поле с данными }
      Field2 := TStringField.Create(nil);
      Field2.FieldName := 'name';
      Field2.Visible := True;
      Field2.FieldKind := fkData;
      Field2.Size := 5;
      Field2.DataSet := ClientDataSet2;
      ClientDataSet2.Fields.Add(Field2);
      { ----- ClientDataSet2 ----- }

      { +++++ ClientDataSet1 +++++ }
      { номер выбранного значения из  ClientDataSet2 }
      Field3 := TIntegerField.Create(nil);
      Field3.FieldName := 'id_izmer';
      Field3.Visible := True;
      Field3.FieldKind := fkData;
      Field3.DataSet := ClientDataSet1;
      ClientDataSet1.Fields.Add(Field3);

      { текстовое поле с данными из  ClientDataSet2 }
      Field4 := TStringField.Create(nil);
      Field4.FieldName := 'izmer';
      Field4.Visible := True;
      Field4.FieldKind := fkLookup;
      Field4.Size := 5;
      Field4.DataSet := TClientDataSet(DataSet);
      { заполнение данных для LookUp }
      Field4.KeyFields := 'id_izmer';
      Field4.LookupKeyFields := 'id';
      Field4.LookupResultField := 'name';
      Field4.LookupDataSet := ClientDataSet2;
      ClientDataSet1.Fields.Add(Field4);
      { ----- ClientDataSet1 ----- }

      ClientDataSet2.CreateDataSet;
      ClientDataSet2.Active := True;
      ClientDataSet1.CreateDataSet;
      ClientDataSet1.Active := True;
end;