TImage im Hintergrund, Onklick Ereignis im Vordergrund

[Hallo_Thomas]

Ich habs jetzt mal so versucht, plus x andere Versuche, aber irgendwie krieg ich noch nicht hin.

Delphi-Quellcode:

procedure TForm1.Label1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to 2 do/////hab z.B auch 0-1 1-2 probiert
    if Components[i] is  TMImage then
      with TControl(Components[i]) do
        if PtInRect(Rect(0, 0, Width, Height), ScreenToClient(Mouse.CursorPos)) then
          MI[i].click;
end;

Hier iist mal der Link zum Orginal -Scourecode

http://home.pages.at/dbr-software/delphi/mimage.htm