type
 PChild = ^TChild;
 TChild = record
   Name: string
  end;

 TParent = record
   Name    : string;
   Children: PChild
  end;

const
 Children1: array [0..2] of TChild =
  ((Name: '1.1'),
   (Name: '1.2'),
   (Name: ''   ));

 Children2: array [0..3] of TChild  =
  ((Name: '2.1'),
   (Name: '2.2'),
   (Name: '2.3'),
   (Name: ''   ));

 Parents: array [0..2] of TParent =
  ((Name: '1';   Children: @Children1),
   (Name: '2';   Children: @Children2),
   (Name: '3'));



procedure TForm1.FormCreate(Sender: TObject);

  procedure Print(const Parent: TParent);
   var
    Child: PChild;
   begin
    Memo1.Lines.Add(Parent.Name);
    Child:=Parent.Children;
    while (Child<>nil) and (Child.Name<>'')
     do   begin
           Memo1.Lines.Add(Child.Name);
           Inc(Child)
          end;
    Memo1.Lines.Add('')
   end;

 var
  Step: Integer;
 begin
  for Step:=Low(Parents) to High(Parents)
   do   Print(Parents[Step])
 end;