procedure TForm1.Button1Click(Sender: TObject);
var
Bmp: TBitmap;
Fname: TFileName;
begin
if OpenPictureDialog1.Execute then
Fname := OpenPictureDialog1.FileName
else
exit;

Bmp := TBitmap.Create;
try
Bmp.LoadFromFile(Fname);
Form1.Canvas.Brush.Bitmap := Bmp;
Form1.Canvas.FillRect( Rect(0,0,100,100) );
Label1.Caption := IntToStr(Bmp.Canvas.Pixels[50,20]);
finally
Form1.Canvas.Brush.Bitmap := nil;
Bmp.Free;
end;
end;
end.

こんなプログラムを作ったんですが、labelの行を追加するとbitmapが正しく表示されません。
また、labelの数字もなんか変ですし。本当はR,G,Bそれぞれの値を得たいのですが、どうしたらよいでしょうか。