[dec]

- Pon un TTimer en tu form (Timer1) y asígnale un tiempo de 500 ms (propiedad Interval)

- Pon este código en su evento OnTimer:

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  FlashWindow(Application.Handle,TRUE);
end;