Rotating an image, omg I cant !!!

Code:

procedure TForm1.Button1Click(Sender: TObject);

var

 img : TBitmap;

 jpg : TPicture;

begin



 jpg := TPicture.Create;

 jpg.LoadFromFile('D:\jucerun\delphi\MidiDelphi\VolumeKnob.jpg');



 img := TBitmap.Create;

 img.Width := 121;

 img.Height := 121;

 img.Canvas.Draw(0,0,jpg.Graphic);



 VLRotate1.Angle := 90;

 VLDSImageDisplay1.DisplayBitmap(img);

end;

Code:

unit uKnobButton;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, LPControl, SLControlCollection, VLCommonDisplay, VLImageDisplay,

  SLCommonGen, VLCommonGen, VLImageGen, LPComponent, SLCommonFilter,

  VLCommonFilter, VLRotate, VLAVIPlayer, VLDSImageDisplay, MLDSPlayer,

  VLDSVideoPlayer, VLGrayScale, StdCtrls, Jpeg, pngimage, GIFImg, VLWarp,

  ExtCtrls, VLBasicGenericFilter, VLGenericFilter, ComCtrls;



type

  TForm1 = class(TForm)

    VLDSImageDisplay1: TVLDSImageDisplay;

    Image2: TImage;

    TrackBar1: TTrackBar;

    VLRotate1: TVLRotate;

    procedure TrackBar1Change(Sender: TObject);

    procedure FormActivate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



  var

 img : TBitmap;

 jpg : TPicture;



implementation



{$R *.dfm}



procedure TForm1.FormActivate(Sender: TObject);

begin

 jpg := TPicture.Create;

 jpg.LoadFromFile('D:\jucerun\delphi\MidiDelphi\VolumeKnob.jpg');



 img := TBitmap.Create;

 img.Width := 121;

 img.Height := 121;

 img.Canvas.Draw(0,0,jpg.Graphic);



 VLDSImageDisplay1.DisplayBitmap(img);

end;



procedure TForm1.TrackBar1Change(Sender: TObject);

begin

 VLRotate1.Angle := TrackBar1.Position;

 VLRotate1.ProcessBitmap(img,image2.Picture.Bitmap);

end;



end.

Code:

object Form1: TForm1

  Left = 0

  Top = 0

  Caption = 'Form1'

  ClientHeight = 225

  ClientWidth = 341

  Color = clBtnFace

  Font.Charset = DEFAULT_CHARSET

  Font.Color = clWindowText

  Font.Height = -11

  Font.Name = 'Tahoma'

  Font.Style = []

  OldCreateOrder = False

  OnActivate = FormActivate

  PixelsPerInch = 96

  TextHeight = 13

  object Image2: TImage

    Left = 200

    Top = 16

    Width = 121

    Height = 121

  end

  object VLDSImageDisplay1: TVLDSImageDisplay

    Left = 16

    Top = 16

    Width = 121

    Height = 121

    AspectRatio.Width = 4

    AspectRatio.Height = 3

    Graph.AdditionalFilters = <>

  end

  object TrackBar1: TTrackBar

    Left = 16

    Top = 168

    Width = 305

    Height = 45

    Max = 360

    TabOrder = 1

    OnChange = TrackBar1Change

  end

  object VLRotate1: TVLRotate

    WorkArea.Width = 1

    WorkArea.Height = 1

    BackgroundColor = clWhite

    SmoothEdge = False

    Left = 152

    Top = 67

    _Floats = (

      (

        Angle

        0.000000000000000000))

  end

end