512 TImages - 1 OnClick Event

[guidok]

Delphi-Quellcode:

with sender as TImage do
begin
  Picture := NeuesBild.Picture;
end;

oder besser

Delphi-Quellcode:

var 
  Image: TImage; 
begin 
   Image := Sender as TImage; 
   Image.Picture := NeuesBild.Picture;