{
Create, Assign, SaveToFile example
This example converts a bitmap image to a jpeg file by using the Assign method.
} 
procedure TForm1.Button1Click(Sender: TObject);
var
  jp: TJPEGImage;  //Requires the "jpeg" unit added to "uses" clause.
begin
  jp := TJPEGImage.Create;
  try
    with jp do
    begin
      Assign(Image1.Picture.Bitmap);
      SaveToFile('oneeye.jpg')
    end;
  finally
    jp.Free;
  end;
end; 
