Если я тебя прально понял... :
При создании объекта приравниваем его тег к его порядковому номеру...
Код:
...
var
ObjLabel : TLabel;
...
For I{это и есть порядковый номер}:= 0 to 100 do
begin
ObjLabel := TLabel.Create...// ну это и до меня написано
...
ObjLabel.Tag := I;//прировняли...
...
Потом при обработке события....
[code]procedure TLabelClick.....// здесь надо что то с Sender'ом мутить написанно было в книжке, но с собой нет это было на форуме
{если будешь делать разные события для лабелов(что делать не советую) то...}
If TLabel.Tag = 5 then ...// ну дальше понятно...[code]
Если закончишь выложи код... нужная вещь...
СОВЕТ! : Я б на твоем месте использовал Canvas т. к. там намного удобней...(в твоем случае все будет без мерцания!) =) Если прально сделать...
