Rotar una imagen

[Descendents]

Pon en un form 2 images image1, image2. Pon un radiogroup,
radiogroup1, pon un button.En el readiogroup pon 4 items.

y wn wl image1 , cargale una imagen bitmap, y en el button pon este código

procedure TForm1.Button1Click(Sender: TObject);
var
i,j :integer;
begin
  WITH Image1.Canvas.ClipRect DO
  BEGIN
    FOR i := Left TO Right DO
    BEGIN

      FOR j := Top TO Bottom DO
      BEGIN
        CASE radiogroup1.itemindex OF
(*0 *)     0:  Image2.Canvas.Pixels[i,j]                  :=
                    Image1.Canvas.Pixels[i,j];

(*90*)     1:  Image2.Canvas.Pixels[j,Right-i-1]          :=
                    Image1.Canvas.Pixels[i,j];

(*180*)    2:  Image2.Canvas.Pixels[Right-i-1,Bottom-j-1] :=
                    Image1.Canvas.Pixels[i,j];

(*270*)    3:  Image2.Canvas.Pixels[Bottom-j-1,i]         :=
                    Image1.Canvas.Pixels[i,j]
        END
      END

    END
  END
end;

Compila y dale al boton

Suerte
Saludos