On Rule Begin Pascal Script:

Begin
  psExitCode:= 1;
  // ... add your code here
  psVIA := 0;
  psVSA := '';
End.



On Destination Pascal Script:

Var
  tmpCount: Integer;
  tmpList: TStringList;
Begin
  psExitCode:= 1;
  // Total Files
  psVIA := psVIA + 1;
  // Total Pages
  tmpList := TStringList.Create;
  Try
    tmpList.Text := psVSA;
    psPdfGetPageCount(psFilePath + psFileName, '', tmpCount);
    tmpList.Add(psFilePath + psFileName + ' - ' + IntToStr(tmpCount));
    psVSA := tmpList.Text;
  Finally
    tmpList.Free;
  End;
End.