Ошибка при присвоении обработичка событий для динамического компонента: Delphi 7

[albert1984]

Доброго времени суток,
Никогда ранее не использовал динамически создаваемые компоненты, и вот наткнулся на ошибку, которую никак не удается исправить.
Если честно не знаю, что именно я делаю не правильно, может сможете подсказать?
Привожу далее весь код, чтобы не пропустить ни одну мелочь.

unit Unit1;

interface

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

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
StatusBar1: TStatusBar;
File1: TMenuItem;
New1: TMenuItem;
Open1: TMenuItem;
N1: TMenuItem;
Exit1: TMenuItem;
TreeView1: TTreeView;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
ListBox1: TListBox;
TabSheet3: TTabSheet;
Image1: TImage;
Panel1: TPanel;
Panel2: TPanel;
procedure New1Click(Sender: TObject);
procedure Panel_01_MouseDown(Sender: TObject);
procedure Panel_01_MouseUp(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Panel_01: TPanel;

implementation

{$R *.dfm}

procedure TForm1.New1Click(Sender: TObject);
begin
Panel_01 := TPanel.Create(Form1);
Panel_01.Parent := Panel1;
Panel_01.Height := 29;
Panel_01.Left :=3;
Panel_01.Width := 282;
Panel_01.OnMouseDown := Panel_01_MouseDown;
Panel_01.OnMouseUp: = Panel_01_MouseUp;
end;

procedure TForm1.Panel_01_MouseDown(Sender: TObject);
begin
Panel_01.BevelOuter := bvLowered;
end;

procedure TForm1.Panel_01_MouseUp(Sender: TObject);
begin
Panel_01.BevelOuter := bvRaised;
end;

end.

Коротко: на основной форме расположена панель Panel1, на которой я создаю другую панель Panel_01. С созданием последней панели проблем не возникает, а вот при присвоении обработчика (Panel_01.OnMouseDown := Panel_01_MouseDown) получаю ошибку 75: Incompatible types: "Parameter lists differ". Строку выделил жирным шрифтом.
Код написан и тестирован на Delphi 7.

Спасибо заранее за любые комментарии.

[grominfo]

Ну тебе же сам компилятор говорит, что списки параметров отличаются. У панели нажатие мыши выглядит так:

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; 
  Shift: TShiftState; X, Y: Integer);

А ты пытаешься присвоить TNotifyEvent:

procedure Panel_01_MouseDown(Sender: TObject);

Список параметров в назначенном событии должен быть равнозначен. То есть, у тебя должно выглядеть так:

type
TForm1 = class(TForm)
{...}
procedure Panel_01_MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

{...}

procedure TForm1.Panel_01_MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Panel_01.BevelOuter := bvLowered;
end;

При OnMouseUp проделай аналогичные изменения

[albert1984]

Большое спасибо за столь подробный ответ!