Сохранение Image через канвас (Bitmap)

[Dj_SheLL]

Сохраняю изображение из Image

procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap:TBitMap;
begin
Bitmap:=TBitmap.Create;
Bitmap.Width:=Image1.Width;
Bitmap.Height:=Image1.Height;
bitmap.Canvas.CopyRect(bitmap.Canvas.ClipRect,image1.Canvas,image1.Canvas.ClipRect);
bitmap.SaveToFile('c:\12.bmp'); // с SaveToFile('c:\12.jpg')-та же фигня
bitmap.Free;
end;

Не работает,ошибка:
"Can only modify an image if it contains a bitmap".
Картинка в Image формата JPG и подключена библиотека "JPEG".
Перепробовал кучу вариантов.

Просто хочу из image(со свойством Strech-картинка обрезанна получается) сохранить ту обрезаную часть,которая видна

Заранее спасибо,кому было не влом отвечать!!!

[DomiNick]

со свойством Strech-картинка обрезанна получается

Она ж тогда не обрезается а наоборот вмещается в размеры TImage...

Картинка в Image формата JPG

Тогда может не image1.Canvas, а image1.Picture.Bitmap.Canvas? А раз там JPG то наверное не сработает...

Так не проще?:

procedure TForm1.Button1Click(Sender: TObject);
var Bitmap:TBitMap;
begin
Bitmap:=TBitmap.Create;
Bitmap.Assign(Image1.Picture.Graphic);
Bitmap.Width:=Image1.Width;
Bitmap.Height:=Image1.Height;
Bitmap.SaveToFile('c:\12.bmp');
Bitmap.Free;
end;

[Dj_SheLL]

Огромнейшее спасибо!!!!!!!!!!!