1:
2:
3:
4:
5:
6:
7:
8:
9:

var jpeg:tgraphic; 
begin 
ifb.Canvas.Create  ; 
ifb.Canvas.Brush.Color :=  clInactiveCaption; 
ifb.Canvas.Rectangle(0,0,x,y) ; 
ifb.Canvas.Brush.Color :=  clwhite; 
Jpeg.LoadFromFile('streifen.jpeg'); 
ifb.canvas.Draw(0,ym+10,jpeg); 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

uses jpeg;

var jpg: tjpeg;
    bmp: tbitmap;
begin
  bmp := tbitmap.create;
  jpg := tjpeg.create;
  jpg.loadfromfile('asdasd.jpg');
  bmp.assign(jpg);
  //hier mit dem bitmap weitermachen
  jpg.free;
  bmp.free;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

uses jpeg;  
 
var jpg: tjpeg;  
    bmp: tbitmap;  
begin  
  bmp := tbitmap.create;  
  jpg := tjpeg.create;  
  jpg.loadfromfile('asdasd.jpg');  
  bmp.assign(jpg);  
  //hier mit dem bitmap weitermachen  
  jpg.free;  
  bmp.free;  
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

function SaveJPEG(Pic: TBitmap; Filename, FileEx: String; Quality: TJPEGQualityRange = 100): boolean;
var
  //count, i: integer;
  //str: string;  
  jpg: TJPEGImage;
begin
  result := false;
  //count := 0;
  //str := '00000';  
  (*while fileexists(Filename + str + FileEx) do 
    begin
      inc(count);
      str := inttostr(count);
      if length(str) > 5 then
        str := '';
      for i := 1 to (5 - length(str)) do
        str := '0' + str;
    end;*)  
  Jpg := TJpegImage.Create;
  try
    Jpg.CompressionQuality := Quality;
    Jpg.Assign(Pic);
    Jpg.savetofile(Filename (*+ str*) + FileEx);
    result := true;
  finally
    Jpg.Free;
  end;
end;