Создание процедуры

[Sashka_BezDelnik]

Ребят помогите! есть следующий код

procedure TForm2.ListBox1Click(Sender: TObject);
var
s:string;
begin
if label5.Caption='' then
begin
s:= listbox1.Items[listbox1.ItemIndex];

label5.Caption:=ExtractFileName(s);
end
else
label5.Caption:='';
s:= listbox1.Items[listbox1.ItemIndex];
label5.Caption:=ExtractFileName(s);

end;


procedure TForm2.ListBox1DblClick(Sender: TObject);
var
x, y: integer;
i, j: integer;
r, g, b: integer;
s,s1:string;
begin
if
(edit1.Text = '') and (edit2.Text = '')
then
begin
edit1.Text:=listbox1.Items[listbox1.ItemIndex];
s:=edit1.Text;
s1:=listbox1.Items[listbox1.ItemIndex];
edit2.Text:=ExtractFileExt(s);
end
else
edit1.Clear;
edit2.Clear;
edit1.Text:=listbox1.Items[listbox1.ItemIndex];
s:=edit1.Text;
edit2.Text:=ExtractFileExt(s);

if (edit2.Text='.jpg') or (edit2.Text='JPG')
then
form9.Image1.Picture.LoadFromFile(s 1);


form9.Width:=Form9.Image1.Width;
form9.Height:= Form9.Image1.Height;
form9.show;

end;



мой вопрос следующий, как мне создать функцию создания listbox-ов чтобы в них добавлялись сразу написанные процедуры, т.е. я нажатием кнопки создаю например 3 листбокса и у них есть уже эти процедуры
Заранее спасибо, если хоть как-то меня направите)

[Stilet]

with TListBox.Create(self) do begin
 parent:=self;
 OnDblClick:=ListBox1DblClick;
 OnClick:=ListBox1Click;
 Остальные свойства по вкусу.
 И вызов метода отображения типа Show
end;

[Sashka_BezDelnik]

Спасибо!Очень помог!)