Два нажатия - одно событие.(Delphi)

[DiemonStar]

procedure TForm1.FormCreate(Sender: TObject);
var I : Integer;
begin
   for i := 0 to (Sender as TForm).Objects.Count - 1 do
      if (Sender as TForm).Objects[I] is TImage then
        with (Sender as TForm) do
           (Objects[I] as TImage).OnClick := ImageClick;
end;

как-то так можно программно назначить обработчик каждому элементу такого типа если очень лениво в инспекторе назначать. (код не проверял - написал по-памяти)

[Necare]

я же говорю, эту проблему я решил, сейчас другая проблема.

Как обратить из процедуры например к TImage3.
Я не могу из процедуры написать Form2.TImage3.Visible:=false т.к. я обращаюсь в процедуре ко многим TImage.

Я отправляю имя TImage через переменную и при помощи переменной нужно как-то скрыть форму.
TImage(ibuf).Visible:=false - не прокатит.
Form2.ibuf.Visible:=false - То же.

[Аватар]

Так используйте в качестве параметра не имя, а сам Image

procedure TtaTaTa(Image: TImage);
begin
  Image.Visible:=False;
end;

...

  TtaTaTa(Image1);
  TtaTaTa(Image2);

[Necare]

Проблема была успешно решена с помощью:

TImage(Form2.FindComponent(ibuf)).Visible:=false;

[DiemonStar]

в таких случаях самое простое и логичное - создать массив [1..n] of TImage и либо в самом начале создавать объекты, либо сделать привязку к существующим. инициализацию массива можно проводить в зависимости от имени объекта. тогда по индексу элемента всегда можно получить доступ к нужному объекту.

[Necare]

DiemonStar спасибо за помощь.
Товарищу Аватар отдельное грамаднейшее спасибо за помощь и разжевывание.