как програмно создать событие???

[gufon]

Пишу так

icon.OnClick:= WinExec(pchar(memo2.lines[i]), SW_SHOW);

в ответ ловлю
[Error] Unit1.pas(58): Incompatible types: 'TNotifyEvent' and 'Cardinal'

[mrCloud]

Сначало надо создать отдельную процедуру а в ней уже описание действий

[mrCloud]

procedure click(Sender: TObject);
......
procedure From1.click(Sender: TObject);
begin
WinExec(pchar(memo2.lines[i]), SW_SHOW)
end;
.....
icon.OnClick:=click

[gufon]

а можно пример кода

[gufon]

ой, он уже есть

[gufon]

Помогите, у меня будет несколько компонентов image создаются програмно точное количество не знаю, как для каждой сделать так:
делаю программу быстрого доступа раставил програмно компоненты

for i:=0  to memo2.Lines.Count-1 do
begin
id:= i;
icon:= Timage.Create(self);
icon.Parent:= self;
icon.Stretch:= true;
icon.OnClick:= iconclick;

и как сделать чтобы при нажатии на определенную иконку открывалась соответсвующия программа????
я пробовал сделать так

procedure TForm1.iconclick(Sender: TObject);
begin
WinExec(pchar(memo2.lines[i]), SW_SHOW);
end;

но переменная i имеет значение 19(у меня столько значков) и открывается последний((((.
Я даже не знаю за что зацепться что открывалась то что нужно, создовать вручную миллион переменных тоже не вариант

[evg_m]

for i:=0  to memo2.Lines.Count-1 do
begin
id:= i;
icon:= Timage.Create(self);
icon.Parent:= self;
icon.Stretch:= true;
icon.OnClick:= iconclick;
icon.tag:=i;

procedure TForm1.iconclick(Sender: TObject);
var
  i: integer;
begin
  i:=(sender as TImage).tag;
WinExec(pchar(memo2.lines[i]), SW_SHOW);
end;

[gufon]

спасибо большое, сам не знаю как но это работает)))