在Delphi中为字段事件创建匿名过程

我正在尝试为OnSetText字段事件创建匿名过程。 我知道我可以创建一个单独的过程。

但是,我想使用匿名过程来创建它。 我正在尝试下一个,但它无法编译。

with qry_material do begin
     close;
     sql.Clear;
     SQL.Add('select A.*');;
     SQL.Add('from CL_PRECO_MATERIAL   A');
     Open;
     qry.FieldByName('valor').OnSetText(procedure (Sender: TField; const Text: string)
      begin
          TField(Sender).Value:=Text;
       end
     );
  end;