[(Resolvido) Ajuda com criação de componentes em tempo real]

Galera tentando fazer aqui acho que consegui de uma olhada em como fico o código:

vou postar o código inteiro da unit para outros que também quiser implementar.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    ScrollBox1: TScrollBox;
    procedure PanelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Panel_teste : array [1..100] of TPanel;

implementation

{$R *.dfm}

procedure TForm1.PanelClick(Sender: TObject);
var I : Integer;
begin
  for I := 1 to 100 do
    begin
    if Panel_teste[I].MouseInClient then
    begin
      Panel_teste[I].Color := clYellow;
      Break;
    end;
    end;

end;

procedure TForm1.FormCreate(Sender: TObject);
var I, Panel_left, Panel_top : Integer;
begin
Panel_left := 5;
Panel_top := 5;
  for I := 1 to 100 do
    begin
       Panel_teste[I]:= TPanel.Create(ScrollBox1);
       with Panel_teste[I] do begin
         Visible := true;
         Left := Panel_left;
         Top := Panel_top;
         Width := 179;
         Height := 100;
         BevelOuter := bvNone;
         Caption := '';
         Color := cl3DLight;
         TabOrder := 1;
         Name := 'Panel_'+IntToStr(I);
         OnClick := PanelClick;
         ParentBackground := False;
         Parent := ScrollBox1;
       end;
    Panel_left := Panel_left + 190;
    if Panel_left > Screen.Width then
    begin
      Panel_left := 5;
      Panel_top := Panel_top + 112;
    end;
    end;
end;

end.

Então este código passo a dar certo depois que coloquei o array só não sei dizer se esta foi a melhor solução pois como vocês podem ver ele vai ter que percorrer um laço que vai de 1 a 100 para testar em qual panel esta, em alguns casos este laço pode ser até maio.

[(Resolvido) Ajuda com criação de componentes em tempo real]

Criei vários componentes em tempo de execução como Panel, Label, Button, etc... quanto a criação beleza, funciono tudo perfeito da maneira que esperava, porem não estou conseguindo criar os procedimentos, por exemplo, se eu crio uma procedure que troca a cor de uma Panel quando passar o mouse em cima, ela esta trocando a cor de todas as Panel criadas. alguém pode me ajudar nisto, he muito urgente.