定时器实现图像闪烁

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Image1.Visible=true then
    Image1.Visible:=false
    else
    Image1.Visible:=true;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Interval:=StrToInt(Edit1.Text);
  Timer1.Enabled:=true;
end;