You can call the Windows API function FlashWindow(): Example:

var
  Flash : bool;
procedure TForm .Timer Timer(Sender: TObject);
begin
  FlashWindow(Form .Handle, Flash);
  FlashWindow(Application.Handle, Flash);
  Flash := not Flash;
end;
procedure TForm .FormCreate(Sender: TObject);
begin
 Flash := False;
end;