Загрузка Изображений В Image

procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
OpenDialog1.Filter:='JPG files only|*.JPG';
if OpenDialog1.Execute then
Edit1.Text:=OpenDialog1.FileName;
Image1.Picture.LoadFromFile(Edit1.Text);
end;
 
procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
SaveDialog1.Filter:='JPG files only|*.JPG';
if SaveDialog1.Execute then
Edit2.Text:=SaveDialog1.FileName;
Image1.Picture.SaveToFile(Edit2.Text);
end;

procedure BmpToJpeg(const BmpSrc: TBitmap; var aJpeg: TJPEGImage;
                    CompressRatio: byte = 100; GrayScale: boolean = false);
begin
  aJpeg.Grayscale:= GrayScale;              {оттенки серого}
  aJpeg.CompressionQuality:= CompressRatio; {уровень сжатия: значения от 1 до 100}
  aJpeg.Assign(BmpSrc);
  aJpeg.Compress;
end;

function JpegToBmp(JpegSrc: string): TBitmap;
var
  jpg: TJPEGImage;
begin
  jpg:= TJPEGImage.Create;
  jpg.LoadFromFile(JpegSrc);
  jpg.DIBNeeded;
  Result:= TBitmap.Create;
  with Result do
  begin
    Palette:= jpg.Palette;
    Width :=jpg.Width;
    Height :=jpg.Height;
    Canvas.Draw(0,0,jpg);
  end;
  jpg.Free;
end;