Možeš npr. da iskoristiš argument funkcije OnClick.
Znači Sender:TObject
Uradiš casting Sender-a u TButton i onda čitaš njegove osobine
ili caption ili tag vrijednost i na osnovu toga određuješ kako
će da izgleda ta tvoja komponenta koju prikazuješ!!!
koristi TAG atribut, u njega moze da upisujes bilo koju integer vrednost, a kasnije u kodu samo proveris koja je upisana pa radis dalje. NPR
case (Sender as TButton).tag of
1: {neki kod};
2: {};
...
end;
nisam siguran u onu AS konstrukciju to prover, ali to je to