ÇÖZÜLDÜ-zoom yapınca resim pixel rengi beyaz oluyor.

[sadikacar60]

arkadaşlar lazarus windows ortamında bir sorunla karşılaştım.
resmi büyütmeden

Image1.Canvas.Pixels[X, Y ] :=clLime; 

bu kod ile tıkladığım pixeller yeşil renk oluyor sorun yok 

fakat 

aşağıdaki kod ile resmi büyülttükten sonra tıkladığımda noktalar beyaz oluyor bunun sebebi ne olabilir acaba 
bir önerisi olan var mı saygılarımla.

procedure TForm1.Button1Click(Sender: TObject);
var
  picture1: TPicture;
 w,h,CopyWidth,CopyHeight:integer;
  img:tbitmap;
 _Xk:integer;
 _Yk:integer;
begin
_Xk:=5;
_Yk:=5;
{
Image1.Picture := nil;
picture1:=TPicture.Create;
picture1.LoadFromFile('Capture\resim.png');
Image1.Picture.Assign(picture1);
}
     CopyWidth:=250;
     CopyHeight:=200;
     w:=_Xk*image1.Picture.Width div image1.width;
     h:=_Yk*image1.Picture.Height div image1.height;
     Image1.Picture.Bitmap.Width := 120;// CopyWidth;
     Image1.Picture.Bitmap.Height := 80;//CopyHeight;
    img:=tbitmap.create;
    img.Assign(image1.Picture.Graphic);
    Image1.Picture.Bitmap.Canvas.CopyRect(Rect(0, 0, 720, 480), img.Canvas, Rect(w, h, CopyWidth + w, CopyHeight + h));
    img.free;

end;

[sadikacar60]

arkadaşlar png resimde bu hatayı almıştım sonar  jpg resim ekledim ondan mı düzeldi yoksa
image silip boş image ekledim ondan mı oldu bilmiyorum 
ama sorun düzeldi.

saygılarımla