interface
type

    TKnopka = class
    public
        Name : string;
        ToDo: string;
        Parameter : string;
    end;

    TForma = class
    public
        Name : string;
        VseKnopki : array of TKnopka;
        destructor Destroy; override;
    end;

implementation

    destructor TForma.Destroy;
    begin
      // bla bla bla
    end;

end.

Forma1:
  Knopka1:
     ToDo: "Nakinut"
     param1: "1"
     param2: "0"
  Knopka2:
     ToDo: "Zakinut"
     param1: "0"
  Knopka3:
     ToDo: "Prikinutsa"
     param1: "0"
     param2: "9,99"

    TParametri = class
    public
        ToDo: string;
        Parameter : case ToDo of
        "Nakinut":
           param1: string;
           param2: string;
        end;
        "Zakinut":
           param1: string;
        end;
        "Prikinutsa":
           param1: string;
           param2: string;
        end;
    end;

	
 type
   // Declare a fruit record using case to choose the
   // diameter of a round fruit, or length and height ohterwise.
   TFruit = Record
     name : string[20];
     Case isRound : Boolean of // Choose how to map the next section
       True  :
         (diameter : Single);  // Maps to same storage as length
       False :
         (length   : Single;   // Maps to same storage as diameter
          width    : Single);
   end;
 
 var
   apple, banana : TFruit;
 
 begin
   // Set up the apple as round, with appropriate dimensions
   apple.name     := 'Apple';
   apple.isRound  := True;
   apple.diameter := 3.2;
 
   // Set up the banana as long, with appropriate dimensions
   banana.name    := 'Banana';
   banana.isRound := False;
   banana.length  := 7.65;
   banana.width   := 1.3;
 
   // Let us display the fruit dimensions:
   if apple.isRound
   then ShowMessageFmt('Apple diameter = %f',[apple.diameter])
   else ShowMessageFmt('Apple width = %f , length = %f',
                       [apple.width, apple.length]);
   if banana.isRound
   then ShowMessageFmt('Banana diameter = %f',[banana.diameter])
   else ShowMessageFmt('Banana width = %f , length = %f',
                       [banana.width, banana.length]);
 end;

interface
type

    TKnopka = class
    public
        Name : string;
        ToDo: string;
        Parameter : string;
    end;

    TForma = class
    public
        Name : string;
        VseKnopki : TFruit;  // <- вот так???
        destructor Destroy; override;
    end;

implementation

    destructor TForma.Destroy;
    begin
      // bla bla bla
    end;

end.

 type
   TParameter = Record
     Case MyForm:
       1 :
         (diameter : Single);
       2 :
         (length   : Single;
          width    : Single);
   end;
 
 var
   para : TParameter ;