Perdón. He cometido un error en el código al escribirlo.
En lugar de esto:
Código Delphi
[-]
procedure TForm1.pppClick(Sender: TObject);
begin
if (Sender = TImage) then begin
showmessage('prueba Imagen: ' + TImage(Sender).Name);
end;
end;
Quería poner esto (es importante el operador IS en lugar del =):
Código Delphi
[-]
procedure TForm1.pppClick(Sender: TObject);
begin
if (Sender is TImage) then begin
showmessage('prueba Imagen: ' + TImage(Sender).Name);
end;
end;
Con eso comprobamos que el Sender sea de la clase correcta.
No debería, pero eso evita que falle la línea siguiente al realizar el CAST: