这个问题其实timerri 已经说的比较清楚了。
我不妨给大家另外一个例子:
去背景:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i,j:integer;
bc: Tcolor;
begin
bc:=image1.Canvas.Pixels[0,0];
for i:=0 to image1.Picture.Width-1 do
for j:=0 to image1.Picture.Height do
if image1.Canvas.Pixels[i,j]<>bc then
image2.Canvas.Pixels[i,j]:=image1.Canvas.Pixels[i,j];
end;