Пропадает картинка на форме при обращении к цвету

[dimfil]

Пропадает картинка на форме при обращении к цвету пикселя.

procedure TMainForm.Button1Click(Sender: TObject);
var
null_color: TColor;
begin
null_color:=ImageTextRegion.Picture .Bitmap.Canvas.Pixels[0, 0];
end;

Когда считываю цвет пикселя, картинка которая была видна на форме исчезает. Помогите пожалуйста.

[Alex21]

скорее всего работа идет с JPEG. Если так, то попробуй это:

var Null_color:TColor;
    b:TBitmap;
begin
  b:=TBitmap.Create;
  b.Assign(image1.Picture.Graphic);
  null_color:=b.Canvas.Pixels[x,y];
  caption:=inttostr(Null_color);
  {...}
  b.Free;