Postgresql 如何在Delphi上的Firedac中填充ADT参数？

我在数据库中有一个存储过程（PostgreSql），它接收一条记录作为参数。使用此函数准备FdStoredProc时，将使用以下定义创建参数：

   DataType = ftADT
   FDDataType = dtRowRef
   ParamType = ptInput

我想知道如何在执行模式下填充此参数

请参见函数示例

创建类型t\u行参数为
(
一个字段整数，
其他_字段数字，
另一个字段文本
--...
);
创建函数my_函数（_asuper_row t_row_param）
返回无效
语言sql
马厩
作为
$$
--…进程行
$$;

这是示例Delphi代码：

type
  TMyRow = record
    one_field: integer;
    other_field Double;
    another_field : String;
  end;

procedure DB_MyFunction(_arow: TMyRow); 
var
  aproc := TFDStoredProc;
begin
  aproc := TFDStoredProc.Create(nil);
  aproc.Connection := aconnection;
  aproc.StoredProcName := 'my_function';
  aproc.Prepare;
  //aproc.params.ParamByName('_asuper_row')AsXXX := ???; how do it?
  //...finalize
 end;