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

  With Panel Do
              Begin
                Parent := Form_Level;
                Name := 'Stein'+IntToStr(j)+IntToStr(i);
                Height := 20;
                Width := 50;
                Left := coords.h[j];
                Top := coords.v[i];
                caption := name;
                OnClick := Test(Panel.Name); <-- hier hakts
              End;					

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

procedure test(PanelName : String);
var
  Panel : TPanel;
Begin
  If FindComponent(PanelName) <> Nil Then
    Panel := FindComponent(PanelName);
    Panel.Free;
End;					

1:

procedure PanelOnClick(Sender: TObject);					

1:
2:
3:
4:

procedure test(Sender: TObject); 
Begin //Der nächste Teil muss dann wie folgt umgeschrieben werden:
     (Sender as TPanel).Free; 
End;					

1:

Panel.OnClick := test;					

1:
2:
3:

procedure PanelKlick(Sender: TObject);
begin
end;					

1:
2:
3:
4:

procedure PanelKlick(Sender: TObject);
begin
  Sender.Free;
end;