图像动态采集框翻转 90、180、270(100分)

各位前辈：
小生在做一个图像采集程序，需要让动态监视的图像旋转90、180、270度。
各位前辈能帮我吗？

自己取象素，然后做变换就可以了，不过，好像效果不好[][][]

图象旋转：
在Form 中放一TImage(Image1)和一按钮，
将 Image1 的 AutoSize 设为 True.
连接按钮的以下点击事件:
点击按钮一下顺时针旋转 90 度。

90度：点一下。
180度：点两下。
270度：点击三下。

procedure TForm1.BitBtn1Click(Sender: TObject);
var
b:tImage;
i,j:Integer;
begin
with image1.Picture.Bitmap do
begin
b:=TImage.Create(nil);
b.Picture.Bitmap.assign(image1.Picture.Bitmap);
b.height:=Width;
b.Width:=Height;
for i:=0 to b.Height-1 do
for j := 0 to B.width -1 do
b.Canvas.Pixels[i,j]:=Canvas.Pixels[j,b.Height-1-i];
Assign(b.Picture.Bitmap);
end;
b.free;
end;

接受答案了.