Bitmap Resimlerin RGB Değerlerinin öğrenilmesi {image nesnesi içindeki bir resmin (0,0) koorinatlarından başlayarak renk değerlerini RGB cinsinden alıp panel üstüne çiziyor}

procedure TForm1.Button3Click(Sender: TObject);

var x,y:integer; renk:TColor; panelDC:hdc;
begin
image1.Picture.Bitmap.LoadFromFile('c:\çiçek.bmp') ;
PanelDC:=getdc(panel1.Handle);
for y:=0 to image1.Picture.Bitmap.Height do //resmin yüksekliği y
begin
for x:=0 to image1.Picture.Bitmap.Width do //resmin genişliği x
begin
renk:=getpixel(image1.Canvas.Handle,x,y);
SetPixel(panelDC,x,y,renk);
end;
end;
ReleaseDC(panel1.Handle,paneldc);
end;