einfach allen Images die gleiche onClick procedure zuweisen. einfach beim Creieren allen einen namen geben und dann mit findcomponent denen das gleiche zuweisen. Und dann im OnClick den Sender zu TImageCasten und anhand dessen unterschiedliche Bilder in den Sender laden.
//wenn zum beispiel die Bilder "image1" bis "image15" heißen
Delphi-Quellcode:
procedure TForm.fOnClickProc(Sender.TObject);
var LImage: TImage;
begin
if Sender is TImage then
begin
LImage := TImage(Sender);
LImage.LoadFromFile('bild' + copy(LImage.name, 6, length(LImage.name)) + '.bmp');
end;
end;
so in der art kannst du das machen...