使用通有事件过程，如何查找事件产生的控件

procedure TForm1.Image1Click(Sender: TObject);//能用过程
var
  S:TObject;
begin
   S:=FindComponent('Timer'+inttostr(TImage(Sender).Tag));//Timer控件 ，名称为 Timer1---到 －－－Timer9
   if Assigned(s) then                                                          ///利用TImage(Sender).Tag查找到
   begin
     if TTimer(s).Enabled then
       begin
         TImage(Sender).Picture.Assign(image8.Picture);
         TTimer(s).Enabled:=False;
       end
       else
       begin
         TImage(Sender).Picture.Assign(image9.Picture);
         TTimer(s).Enabled:=true;
       end;
   end;
end;