TImage Objekt als Sender nutzen

[Nightblade]

Hallo.

Durch die Hilfe des Forums habe ich eine Procedur bekommen, mit der ich alle Bilder eines Form auf einmal unsichtbar machen kann. Nun spreche ich die Procedur wie folgt an:

Delphi-Quellcode:

procedure TLeitern.LeiterauswahlChange(Sender: TObject);
begin

leiterauswahl.OnChange := ShowImageHideOther;
end;
 {Durch diesen aufruf soll folgende Procedur gestartet werden}

procedure TLeitern.ShowImageHideOther(Image: TImage);
var
  i: Integer;
begin
  for i := 0 to Pred(ControlCount) do
    if (Controls[i] is TImage) then
      TImage(Controls[i]).Visible := Controls[i] = Image;
end;

Nun bringt delphi aber den Fehler:

[Error] Leiter.pas(367): Incompatible types: 'TObject' and 'TImage'

Ich habs schon mit

Delphi-Quellcode:

procedure TLeitern.LeiterauswahlChange(Sender: TObject);
var ShowImageHideOther:timage;
begin
  if Sender is TImage then
BEGIN
ShowImageHideOther:= TImage(Sender);
END;

probiert klappt aber auch nicht
[Error] Leiter.pas(371): Incompatible types: 'TNotifyEvent' and 'TImage'

Kann mir hier noch mal einer auf die Sprünge helfen? Damit hätte ich dann alle meine Probleme gelöst und könnte das Programm endlich vollständig fertig stellen.

Bitte um Hilfe. Ich weiß nicht mal, ob ich die Procedur korrekt anspreche.

Vielen Dank.