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

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;