1:

Panel.Name := 'Panel' + IntToStr(i);					

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

OnMouseOver(Sender: TObject);
begin
  Proc(Sender);
end;

Proc(Sender:Tobject);
begin
  if Sender.Name = '..' then
  .....
  else if ...
end;					

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

procedure anzeigen;
begin
 <erzeuge X Panels>
 
 for k := 1 to i do
 begin
  procedure Panel + i + .onclick(Sender: TObject);
  begin
   <rufe Daten aus Datenbank ab>
  end;
 end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TFormX.PanelXClick(Sender: TObject);
begin
  if Sender is TPanel then
    ShowMessage(IntToStr(TPanel(Sender).Tag));
end;

procedure TFormX.CreateAllPanels;
var
  MyPanel: TPanel;
begin
  for i := 0 to 9 do
  begin
    MyPanel := TPanel.Create(Self);
    MyPanel.Top ...
    MyPanel.Parent := Self;

    MyPanel.OnClick := PanelXClick;
  end;
end;					

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

  Panel := TPanel.Create(self);
  Panel.Parent := SBInhalt;
  Panel.Top := top;
  Panel.Left := 5;
  Panel.Name := 'Panel' + IntToStr(i);
  Panel.OnClick := PanelXClick;					

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

randomize;
i:=random(hoechsterWert);
case i of
   0: machDiesesProcedure();
   1: machJenesProcedure();
   2: machNochWasAnderesProcedure(); 
end;