创建匿名过程以在Delphi中现场事件

Question

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

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

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;