Как закрутить с PNG?

[kangreon]

Raf-9600
В моем примере, во время запуска программы, происходит поворот изображения и сохранения результата во временные переменные, из которых и происходит рисование поворота. В принципе, можно немного переделать этот код, а именно: при запуске программы не поворачивать изображение, или выполнить поворот лишь на несколько углов. (Убрать из события создания формы вызов процедуры Rotate)
В событии рисования, поворачивать еще не повернутые изображения:

procedure TForm2.FormPaint(Sender: TObject);
var
  a: Integer;
begin
  a := Angle;
  if FImageAngle[a] = nil then
  begin
    FImageAngle[a] := RotateImage(FImageAngle[0], 70, 63, a);
  end;

  Canvas.Draw(180, 90, FImageAngle[a]);
end;

Но если далать так, то при первом повороте, рисование немного подтормаживает на слабом компьютере.

[Rusland]

kangreon, интересный код.
Но если вместо имеющегося танка поставить другой PNG-файл, то запуск происходит оочень долго (в моем случае например, 41сек).
А если из Create убрать Rotate, как вы писали выше, то картинка не вращается вовсе (помаргивает иногда только)