Timage als TObject benutzen

[DMonkey]

ICh habe volgendes Problem, und zwar möchte ich als Sender einer normalen OnKlick Procedure ein TImage nehmen jedoch gibt delphi
den Fehler inkompatile Type Tobject und Timage.
Ich würde gern wissen wie ich das beheben/umgehen kann

Delphi-Quellcode:

procedure Tmainfrm.mainClick(Sender: TObject);
var selected:timage;
begin
 selected:= sender;
getimage(selected);
end;

:wall: :wall: :wall:

[DeddyH]

Delphi-Quellcode:

procedure Tmainfrm.mainClick(Sender: TObject);
var selected:timage;
begin
  if Sender is TImage then
    begin
      selected:= TImage(Sender);
      getimage(selected);
    end;
end;

[DMonkey]

THX , hat mir echt geholfen