Form.ItemCount : Integer
Количество полей и переменных

Procedure OnCreate;
Var
  F : Form;
  i : Integer;
Begin
  F := CreateModule('Form2');
  For i:=0 To F.ItemCount-1 Do
    If Not (F[i] Is Field) Then
      Warning(F.ItemName(i) + ' = ' + F[i] As String);
End;

void OnCreate() {

  Form F;
  int i;

  F = CreateModule("Form2");
  for(i=0; i<F.ItemCount; i++)
    if(!(F[i] is Field))
      Warning(F.ItemName(i) + " = " + (string)F[i]);
}