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

var
  farbe: tColor;
  rot,gruen,blau: Byte;
[..]

farbe := image1.canvas.pixels[100,200];
rot := getRVAlue(farbe);
gruen := getGValue(farbe);
blau := getBVAlue(farbe);

rot := 255-rot; // Wert invertieren

farbe := RGB(rot,gruen,blau); // farbe zturückschreiben
image1.canvas.pixels[100,200] := farbe;                    

1:

image1.Picture.LoadFromFile('C:\Users\xyz\Desktop\test1                    

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

farbe := image1.picture.bitmap.Canvas.pixels[4,3];

rot := getRVAlue(farbe);
gruen := getGValue(farbe);
blau := getBVAlue(farbe);

showmessage(inttostr(rot));
showmessage(inttostr(gruen));
showmessage(inttostr(blau));                    

1:

image1.canvas.LoadFromFile('C:\Users\xyz\Desktop\test1');                    

1:

farbe := image1.Canvas.pixels[4,3];                    

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

image1.Picture.LoadFromFile('C:\Users\xyz\Desktop\test1');

farbe := image1.Canvas.pixels[4,3];
rot := getRVAlue(farbe);
gruen := getGValue(farbe);
blau := getBVAlue(farbe);

showmessage(inttostr(rot));
showmessage(inttostr(gruen));
showmessage(inttostr(blau));                    

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

uses jpeg;
[..]
var
  mein_jpeg: TJpegImage;
  mein_bmp: tBitmap;

begin
mein_jpeg := TJpegImage.Create;
mein_jpeg.loadfromfile(bla);
mein_bmp := tBitmap.Create;
mein_bmp.width := mein_jpeg.width;
mein_bmp.height := mein_jpeg.height;
mein_bmp.draw(0,0,mein_jpeg);

image1.picture := mein_bmp;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

var Bitmap: TBitmap; JPEG: TJPEGImage;
begin
  Bitmap := TBitmap.Create;
  try
    JPEG := TJPEGImage.Create;
    try
      JPEG.LoadFromFile(Dateiname);
      Bitmap.Assign(JPEG);
    finally
      JPEG.Free;
    end;

    { Hier kommt dann der Code rein }

  finally
    Bitmap.Free;
  end;
end;                    

1:

Farbe := Bitmap.Canvas.Pixels[100, 200];                    

1:

ShowMessage(IntToHex(Farbe, 8));                    

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

image1.Picture.LoadFromFile('C:\Users\xyz\Desktop\test1.jpg');

farbe := image1.Canvas.pixels[4,3];
rot := getRVAlue(farbe);
gruen := getGValue(farbe);
blau := getBVAlue(farbe);

showmessage(inttostr(rot));
showmessage(inttostr(gruen));
showmessage(inttostr(blau));                    

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

var c: TColor;
r, g, b:string;
begin

...

c := image1.Canvas.Pixels[0,0];
r := inttostr(getRValue(C));
g := inttostr(getGValue(C));
b := inttostr(getBValue(C));
showmessage(r+' '+g+' '+b); 

...                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure JPEGtoBMP(const FileName: TFileName);
var
  jpeg: TJPEGImage;
  bmp:  TBitmap;
begin
  jpeg := TJPEGImage.Create;
  try
    jpeg.CompressionQuality := 100; {Default Value}
    jpeg.LoadFromFile(filename);
    bmp := TBitmap.Create;
    try
      bmp.Assign(jpeg);
      bmp.SaveTofile(ChangeFileExt(FileName, '.bmp'));
    finally
      bmp.Free
    end;
  finally
    jpeg.Free
  end;
end;                    

1:
2:
3:
4:
5:

...
JPEGtoBMP('s.jpg');
image1.Picture.Bitmap.PixelFormat := pf24bit;
image1.Picture.LoadFromFile('s.bmp');
...                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure LoadJPEGasBMP(const FileName: TFileName);
  var
    jpeg: TJPEGImage;
    bmp:  TBitmap;
begin
  jpeg := TJPEGImage.Create;
  try
    jpeg.LoadFromFile(FileName);
    bmp := TBitmap.Create;
    try
      bmp.Assign(jpeg);
      Image1.Picture.Bitmap.Assign(bmp);
    finally
      bmp.Free
    end;
  finally
    jpeg.Free
  end;
end;