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;