Image soll durch darüber liegendes Label angeklickt werden.

[Hallo_Thomas]

Nun wollte ich noch das die Labels über dem entsprechenden Image(die labels gehen über mehrer Images) Das entsprechende Onclick des Imgaes auslösen.
Irgendwie klappt der Code hier unten nicht

Delphi-Quellcode:

procedure TForm1.MeinClick(Sender: TObject); 
var
  i: Integer;
  iString:String;
begin
  for i := 1 to 3 do
   iString:=IntToStr(i);
    if  (FindComponent('Image'+(iString)) is  TImage) then
    begin
      with TControl(FindComponent('Image'+(iString)))  do
        if PtInRect(Rect(0, 0, Width, Height), ScreenToClient(Mouse.CursorPos)) then
        Image1.OnClick(Image1)
       //(FindComponent('Image'+(iString)) as TImage).OnClick(FindComponent('Image'+(iString)) as TImage);
   end;
end;

Ich weis nicht so recht ob ich hierfür nenn neuen Thread aufmachen soll, aber ich poste es einfach mal hierdrin.