Вертеть картинку

[KAMASUTR]

Парни, вопрос! Как мне заставить вертеться картинку вокруг не подвижной точки или оси?

[Alex21]

Попробуй так:

uses Math;
procedure TForm1.Button1Click(Sender: TObject);
var 
  bm, bm1: TBitMap; 
  x, y: integer;
  r, a: single; 
  xo, yo: integer; 
  s, c: extended;
begin
  bm := TBitMap.Create; 
  bm.LoadFromFile('D:\213.bmp');
  xo := bm.Width div 2; 
  yo := bm.Height div 2;
  bm1 := TBitMap.Create; 
  bm1.Width := bm.Width;
  bm1.Height := bm.Height;
  a := 0; 
  repeat
    for y := 0 to bm.Height - 1 do begin
      for x := 0 to bm.Width - 1 do begin 
        r := sqrt(sqr(x - xo) + sqr(y - yo));
        SinCos(a + arctan2((y - yo), (x - xo)), s, c);
        bm1.Canvas.Pixels[x,y] := bm.Canvas.Pixels[ 
          round(xo + r * c), round(yo + r * s)];
      end;
      Application.ProcessMessages;
    end;
    Form1.Canvas.Draw(xo, yo, bm1);
    a := a + 0.05;
    Application.ProcessMessages;
  until Form1.Tag <> 0;
  bm.Destroy;
  bm1.Destroy;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Form1.Tag := 1;
end;