procedure TForm1.BitBtn1Click(Sender: TObject);
var
i:integer;
j:TJPEgimage;
begin
Image2.Canvas.MoveTo(0,1);//画图
Image2.Canvas.LineTo(100,22);
Image2.Picture.Bitmap.SaveToFile('c:/23.bmp');//存放
j:=TJPEGImage.Create;//转换jpg
j.Assign(Image2.Picture.Bitmap);
j.SaveToFile('c:/24.jpg');
end;
