eine Funktion für mehrere Objekte(Sender)??

[Angel4585]

Sowas?

Delphi-Quellcode:

procedure SetImage(AImage : TImage);
begin
ShowMessage(AImage.Name);
end;