Процедура в скрипте

VAbramyak

В скрипте есть процедура, которую вешаю на событие OnBeforePrint нескольких Memo

var str : string;
  
procedure LastPayStatement (Sender: TfrxComponent);
begin
str := '';
  if <WarningRow."RecPaySumm">>0 then
begin
str := 'Остання зарахована оплата ' + DateToStr(<WarningRow."RecPayDate">) + ' на суму ' + FormatFloat('0.00',<WarningRow."RecPaySumm">) + ' грн.'  
end;
  
  if <WarningRow."CurSubSumm">>0 then
begin
str := str + iif(length(str)>0,', ','') + 'Субсидія - '  
+ FormatDateTime('mm/yyyy',<WarningRow."CurSubDate">) +     
' на суму ' + FormatFloat('0.00',<WarningRow."CurSubSumm">) + ' грн.'
end;

  if YearOf(<WarningRow."ScoreDate">) > 1900 then
str := str + iif(length(str)>0,', ','') + 'Борг на показник ' + <WarningRow."MeterReading"> + ' від ' + FormatDateTime('dd/mm/yyyy',<WarningRow."ScoreDate">);  
  TfrxDMPMemoView(sender).text := str;                                          
end;

Можно ли в процедуру передать параметром еще датасет
наверно так
procedure LastPayStatement (Sender: TfrxComponent; Dataset : Tfrxdataset);
, чтобы можно было написать
например вместо
if <WarningRow."RecPaySumm">>0 then
что-то типа
if <Dataset."RecPaySumm">>0 then
и как правильно написать в событии OnBeforePrint, пробовал LastPayStatement(Sender;WarningRow)
выдает ошибку про неизвестный датасет
<Dataset."RecPaySumm">.