Duda para asignar un procedimiento a un evento

[dtomeysoto]

Empezado por Casimiro Notevi

¿Pero qué quieres conseguir?

Hola Casimiro, yo lo que quiero es crear los campos calculados en tiempo de ejecución, para esto he hecho lo siguiente:

Código Delphi [-]
procedure TFMainForm.FormCreate(Sender: TObject);
var
  sIP, sMAC: TStringField;
begin
  sIP  := TStringField.Create(dmPSQLCon.uqARP);
  sIP.FieldKind := fkCalculated;
  sIP.FieldName := 'sIP';
  sIP.Size := 15;
  sIP.Calculated := True;

  sMAC := TStringField.Create(dmPSQLCon.uqARP);
  sMAC.FieldKind := fkCalculated;
  sMAC.FieldName := 'sMAC';
  sMAC.Size := 17;
  sMAC.Calculated := True;

  dmPSQLCon.uqARP.Fields.Add(sIP);
  dmPSQLCon.uqARP.Fields.Add(sMAC);

ahora el problema que tengo es cómo hacer lo siguiente:

dmPSQLCon.uqARP.OnCalcFields := MiProcCalcFields(dmPSQLCon.uqARP);

dónde y cómo declaro el procedimiento MiProcCalcFields para poder asignárselo a dmPSQLCon.uqARP.OnCalcFields