Анимация при сворачивании окна в трей

Для начала поместите компонент TApplicationEvents и запишите событие OnMinimize и OnRestore.

procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin
   DrawAnimatedRects(Handle, IDANI_CAPTION, BoundsRect,
     Rect(Width - 20, Height, Width - 10, Height));
end;

В старых версиях Delphi компонент TApplicationEvents существует, поэтому нужно назначить событие, как показано в коде:

procedure TForm1.FormCreate(Sender: TObject);
begin
   Application.OnMinimize:=ApplicationEvents1Minimize;
end;

Разворачивание с анимацией из системного трея может быть достигнута путем обмена двух параметров. Это отображено в коде события OnRestore:

procedure TForm1.ApplicationEvents1Restore(Sender: TObject);
begin
   DrawAnimatedRects(Handle, IDANI_CAPTION,
     Rect(Width - 20, Height, Width - 10, Height), BoundsRect);
end;

Вот и все!