[AlexSku]

Кинь Image и загрузи картинку bmp. А также кнопку. Добавь uses Math.

Код:

type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Math;

{$R *.dfm}

procedure povorot(bmp1: tbitmap; var bmp2: tbitmap; a: real);
...
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  b1: TBitmap;
begin
  b1:= TBitmap.Create;
  b1.Width:= Image1.Picture.Bitmap.Height; { Это для поворота на 90 град. }
  b1.Height:= Image1.Picture.Bitmap.Width; { но можно использовать другие размеры }
  povorot(Image1.Picture.Bitmap, b1, PI/2.0); { Угол может быть любым }
  Image1.Picture.Bitmap.Assign(b1);
  b1.Free;
end;

end.