快速图象处理

   P := Bitmap.Scanline[y];
    x := 0;
    while x <= Bitmap.width*3 -1 do begin
      P[x] := 200; //Blue
      P[x+1] := 200; //Green
      P[x+2] := 200; //Red
      inc(x,3)
    end;