var
Image:TImage;

if Sender is TImage then Image := TImage(Sender) else exit;

以下で Image についてコードを書く