Problem mit Variablen bei for-Schleife

[LoW_FloW]

Okay ich habs jetzt mal mit der Findcomponent-Methode versucht...Jetzt tritt der Fehler Inkompatible Typen: 'Integer' und 'TImage' auf. Es wird wahrscheinlich mit dem +'.Left' zutun haben...Hier der source:

Delphi-Quellcode:

procedure TForm1.imgBackroundMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  i, j : integer ;
begin
for i := 1 to 34 do begin
    j := (findcomponent('Image'+inttostr(i)+'.Left') as TImage) ;
    if X >= j
//  if  (X >= Image(i).Left) and (X <= Image(i).Left+Image(i).Width ) and
//      (Y >= Image(i).Top ) and (Y <= Image(i).Top +Image(i).Height)
  then label1.Caption := 'JIIIHA' else label1.Caption := 'RAMSIIIM' ;
  end;
end;

Bitte wieder um Hilfe und danke an Lukie für den Tipp mit Findcomponent