1:
2:
3:
4:
5:
6:
7:

Type TMyButton = class(TButton)
     public
       ExtraInteger1 : Integer;
       ExtraInteger2 : Integer;
       ExtraString1  : String;
       ExtraString2  : String;
     end;					

1:
2:
3:
4:
5:
6:

FMyButton := TMyButton.Create(Self);
FMyButton.ExtraInteger := 5;
FMyButton.ExtraString := 'TestString';
FMyButton.Height := 25;
FMyButton.Name := 'Button1';
FMyButton.Caption := 'Drück mich ganz lieb'					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var FMyButtons : TList;
    MyButton : TMyButton;
begin
  For i := 1 To ButtonCount Do begin  // ButtonCount ist die Anzahl der Button, die Du aus der Datei holst
    MyButton := TMyButton.Create(Self);
    MyButton.Top := 23;               // hier setzt Du die Variablen, die Du aus der Datei liest
    ...
    MyButton.ExtraInteger1 := 15;     // hier die extra Werte
    ...
    FMyButtons.Add(MyButton);         // und in die Liste einfügen
    MyButton.OnClick := MyOnClick;
  end;
end;					

1:

TMyButton(FMyButtons.Items[idx]).ExtraInteger1 := 444; // idx ist der index in der Liste des jeweiligen Buttons					

1:
2:
3:
4:
5:

While FMyButtons.Count > 0 Do begin
  TMyButton(FMyButtons.Items[0]).Free;
  FMyButtons.Delete(0);
end;
FreeAndNil(FMyButtons);					

1:

TMyButton(Sender).ExtraInteger1 := 12;					

1:
2:
3:

begin
  FMyButtons := TList.Create;
end;