Flash icon

var Flash : bool;
procedure TForm1.Timer1Timer(Sender: TObject);
begin 
FlashWindow(Form1.Handle, Flash); 
FlashWindow(Application.Handle, Flash); Flash := not Flash;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin 
Flash := False;
end;