[Помогите!] Работа с изображением в Delphi 7

[NoName74]

Всем привет! Вобщем, дело такое:
На форме есть image, который загружается из C:\image.jpeg. Этот image можно перемещать по форме во время работы программы.
Передо мной стоит задача - сохранить в отдельный файл определённую часть изображения. Как это сделать?
Использую вот такое:

rocedure TForm1.Button1Click(Sender: TObject);
var
 B:TBitmap;
 begin
 B:=TBitmap.Create;
 B.Width:=Bevel1.Width;
 B.Height:=Bevel1.Height;
 B.Canvas.Draw(0,0,Image1.Picture.Graphic);
 B.SaveToFile('fragment.jpeg');
 B.Free;
end;

Но он сохраняет верхюю правую часть image, где бы он не находжился на форме.
Помогите, заранее спасибо!

[Тигрь]

Попробуй так:

rocedure TForm1.Button1Click(Sender: TObject);
var
 B:TBitmap;
 begin
 B:=TBitmap.Create;
 B.Left:= тут указываешь нужное тебе значение;
 B.Top:= тут указываешь нужное тебе значение;
 B.Width:=Bevel1.Width;
 B.Height:=Bevel1.Height;
 B.Canvas.Draw(0,0,Image1.Picture.Graphic);
 B.SaveToFile('fragment.jpeg');
 B.Free;
end;

[NoName74]

Ошибка при компиляции, даже две ошибки:
[Ссылки могут видеть только зарегистрированные пользователи. ]

[Dinmaite[Work]]

Потому что у битовой карты нет таких переменных.
Вообще, используй

B.Canvas.CopyRect(const Dest: TRect; Canvas: TCanvas;  const Source: TRect);

Скопирует на канву компонента B, в место обозначенное Dest, изображение из место обозначенного Source, канвы Canvas.
Ну и дальше сохраняй в файл.

[NoName74]

а можно чуть-чуть разъяснить? я ещё не особо понимаю в делфи

[Dinmaite[Work]]

Я надеюсь так достаточно ясно

procedure TForm1.Button1Click(Sender: TObject);
var
 B:TBitmap;
begin
 B:=TBitmap.Create;
 B.Width:=bevel1.Width;
 B.Height:=bevel1.Height;
 B.Canvas.CopyRect(rect(0,0,bevel1.Width,bevel1.Height), Image1.Canvas,
  rect(bevel1.Left-image1.Left,bevel1.Top-image1.Top,bevel1.Width+bevel1.left,bevel1.Height+bevel1.Top));
 B.SaveToFile('fragment.bmp');
 B.Free;
end;

[lolwut98]

юзай bitblt