Pixel mit bestimmter Farbe erstellen

[cRayZo]

also ich habs jetzt so gemacht:
ein Bild vom screen machen und in n Bild einfügen, aber das Bild ist komplett weiß, was ist das Problem? beim Hintergrund hats geklappt.

Delphi-Quellcode:

var
  dc: hDc;
  s:string;
  i, i2: integer;
  x, xx,y, Filterx, FilterY, Teil :integer;
begin
x:=1; y:=1;

FilterX:=strtoint(Edit1.Text); FilterY:=strtoint(Edit2.Text); Teil:=strtoint(Edit3.Text);

for i2:=1 to 800 div FilterY do begin
for i:=1 to 1280 div FilterX do begin
  dc := GetDC(0);
  image1.Canvas.Brush.Color:= GetPixel(dc, x, y); 
  ReleaseDC(0, dc);
  image1.Canvas.FillRect(Rect(x div Teil ,y div Teil,x div Teil+1,y div Teil+1));                     //FillRect
  x:=x+FilterX;
  end;
  x:=1; y:=y+FilterY;
end;
end;

so wie beim untenstehenden hats geklappt..-->

Delphi-Quellcode:

var
  dc: hDc;
  s:string;
  i, i2: integer;
  x, xx,y, Filterx, FilterY, Teil :integer;
begin
x:=1; y:=1;

FilterX:=strtoint(Edit1.Text); FilterY:=strtoint(Edit2.Text); Teil:=strtoint(Edit3.Text);

for i2:=1 to 800 div FilterY do begin
for i:=1 to 1280 div FilterX do begin
  dc := GetDC(0);
  Canvas.Brush.Color:= GetPixel(dc, x, y); 
  ReleaseDC(0, dc);
  Canvas.FillRect(Rect(x div Teil ,y div Teil,x div Teil+1,y div Teil+1));
  x:=x+FilterX;
  end;
  x:=1; y:=y+FilterY;
end;
end;

was ist das Problem???