Delphi-Quellcode:
procedure TForm1.GetFarbe(var r, g, b: Byte; Bild: TBitmap; X, Y: Integer);
var
Farbe: TColor;
begin
Farbe := Bild.Canvas.Pixels[X, Y];
r := GetRValue(Farbe);
b := GetBValue(Farbe);
g := GetGValue(Farbe);
end;
Das ist eine Methode deines Formulars, die du für deine Zwecke aufrufen kannst. Du übergibst dein Bitmap und die gewünschte Bildkoordinate; Rückgabewerte sind die 3 Farbanteile des angegebenen Punkts.