Событие динамического объекта

[ВалекFCRK]

procedure Tview.ck(Sender: TObject);
begin
view.Close;
end;


procedure Tview.Button1Click(Sender: TObject);
var
Table: array [0..99] of Tlabel;
w_img,i:integer;

begin

/////////////////////////// Î÷èñòêà







////////////////////////
view.mview.Lines.LoadFromFile('rece pt/system.ini');

for i:=1 to view.mview.lines.Count do
begin

Table[nom]:=tlabel.Create(self);
Table[nom].caption:=view.mview.Lines.Strings[i-1];
Table[nom].Top:=10+nom*30;
Table[nom].left:=15;
Table[nom].Tag:=1;
Table[nom].Height:=20;
Table[nom].Parent:=view.ScrollBox1;
Table[nom].OnClick:=ck;
Table[nom].color:=clRed;

nom:=nom+1;
end;
end;



Процедура ck не срабатывает. Форма не закрывается. ПОмогите

[ych_del]

procedure Tview.ck(Sender: TObject);
begin
view.Close;
end;

Убери view на фиг.

Смотри: создаем форму вот так: with TView.Create(Appliction) do Show; Угадай с трёх раз - будет ли в переменной view хоть что-нибудь?

Ну, а вообще - поставь бряк в этой процедуре - хотя бы убедишься, что в неё вход производится.