Добрый вечер. В моей программе динамически создаются Табы и в них кнопки, напоминает любой браузер с его вкладками. Создаю все в рантайме динамически, типа так:

code:
NewButton:=TButton.Create;
NewButton.Tag:=Integer(@MyMainStruct);
NewButton.OnCLick := Upload1Click;

MyMainStruct - некий класс, который так же создается для своего таба. Далее на событие OnClick присваиваю процедуру такого типа [Code]procedure TForm1.Upload1Click(Sender: TObject); var CLient: MyMainStruct; ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82743