Назначение события

[EA_Sports]

Привет всем. Не знаю, возможно такой вопрос уже задавали, но нет времени на поиск, вобщем суть такова:
Я создаю компонент(Батон), мне нужно на событие онклик присвоить ему ранее описанную процедуру из моего класса. Как это сделать? У меня почему-то категорически отказыается это делать. Код выглядит след. образом:

TRaspisanie = class
public
NewItem:array[1..6,1..8] of TEdit;
But: array[1..6] of TButton;
ItemCount:array[1..6] of byte;
Day : byte;
procedure AddItem(Day : byte; Roditel : byte);
end; // Вот это есть класс

procedure TRaspisanie.AddItem(Day : byte; Roditel : byte);
begin
if Rasp.ItemCount[Day] < 6 then
begin
Rasp.NewItem[Rasp.Day,Rasp.ItemCount[Rasp.Day]] := TEdit.Create(Form1);
Rasp.NewItem[Rasp.Day,Rasp.ItemCount[Rasp.Day]].Left := Rasp.But[Roditel].Left - Rasp.But[Roditel].Width;
Rasp.NewItem[Rasp.Day,Rasp.ItemCount[Rasp.Day]].Top := Rasp.But[Roditel].Top;
Rasp.NewItem[Rasp.Day,Rasp.ItemCount[Rasp.Day]].Visible := true;
Rasp.NewItem[Rasp.Day,Rasp.ItemCount[Rasp.Day]].Parent := Form1;
Rasp.NewItem[Rasp.Day,Rasp.ItemCount[Rasp.Day]].Width := Rasp.But[Roditel].Width * 3;
Rasp.NewItem[Rasp.Day,Rasp.ItemCount[Rasp.Day]].Hint := Rasp.NewItem[Rasp.Day,Rasp.ItemCount[Rasp.Day]].Text;
Rasp.NewItem[Rasp.Day,Rasp.ItemCount[Rasp.Day]].ShowHint := true;
Rasp.But[Roditel].Top := Rasp.NewItem[Rasp.Day,Rasp.ItemCount[Rasp.Day]].Top + Rasp.NewItem[Rasp.Day,Rasp.ItemCount[Rasp.Day]].Height;
Rasp.ItemCount[Rasp.Day] := Rasp.ItemCount[Rasp.Day] + 1;
end;
end; /// это есть та процедура, которую надо присвоить событию (на код не смотрите, он не доделан(у этой процедуры), но суть не в этом)


procedure TForm1.FormCreate(Sender: TObject);
var i:byte;
x : integer;
begin
Rasp := TRaspisanie.Create;
x := 32;
for i:= 1 to 6 do
begin
Rasp.But[i] := TButton.Create(Form1);
if i = 1 then
Rasp.But[i].Left := x
else
Rasp.But[i].Left := Rasp.But[i-1].Left + 80;
Rasp.But[i].Top := 50;
Rasp.But[i].Parent := Form1;
Rasp.But[i].Visible := true;
Rasp.But[i].Width := Rasp.But[i].Height;
Rasp.But[i].Caption := '+';
Rasp.But[i].Tag := i;
Rasp.But[i].OnClick := ?????; /// что должно прописываться здесь? вместо знаков "?????", Rasp.AddItem(Day : byte; Roditel : byte) не катит.
Rasp.ItemCount[i] := 1;
end;
end;

[mihali4]

Rasp.AddItem(Day : byte; Roditel : byte) не катит.

Правильно. А вот Rasp.AddItem(Sender: TObject; Day : byte; Roditel : byte) "покатит".

[BOBAH13]

а OnClick какой тип имеет ? :D должен быть пусть там TOnClick = procedure(Day : byte; Roditel : byte) of object; вот так надо