[OvoMan]

создаю динамически Image

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 icon     :TIcon;
begin
  imag:=TImage.Create(self);
  imag.Parent:=Form1.Panel1;
  imag.Left:=10;
  imag.Top:=10;
  imag.AutoSize:=true;
  imag.Picture.Icon:=icon;
  imag.OnDblClick:=OpenLabel; //вот нажатие обрабатывается процедурой
 end;

procedure TForm1.OpenLabel(Sender: TObject);
begin
 ShellExecute(handle, 'open', filename, nil, nil, SW_SHOWNORMAL);
end;

так вот все работает, но проблема в том, что у меня будет как минимум 10 таких картинок, хотел чтобы для всех была одна функция, которая будет запускать файл, но для этого мне нужно как-то передать в функцию адрес файла, но я же присваиваю эту функцию
imag.OnDblClick
вобщем вопрос: как передать в процедуру или функцию дополнительный параметр с типом string