Как создать мигающий заголовок окна (пиктограмму)?

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if application.Icon.Handle mod 2 = 0
  then application.Icon.Handle:= application.Icon.Handle +1
  else application.Icon.Handle:= application.Icon.Handle -1
end;

способ смешной но он работает.

Какого окна?

Объясни поподробнее.

да