mORMot Open Source

procedure TfrmBarjeelImageScan.btnshowClick(Sender: TObject);
Var  JpegImage : TJpegImage;

begin
  if Trim(edtFileName.Text)= '' then
  begin
   ShowMessage('JPEG Image File not Selected');
   Exit;
  end
  else
  begin
   Image1.Picture.LoadFromFile(Trim(edtFileName.Text));
   JpegImage := TJpegImage.Create;
   try
    JpegImage.Assign(Image1.Picture.Graphic);
    Image1.Picture.Bitmap.Assign(JpegImage);
   finally
   end;
    FreeAndNil(JpegImage);
 end;
End;