Hola coso. Gracias por contestar.
En realidad el código es de lo más simplón. Por ejemplo, una de las cosas que probé para ver qué pasaba (recito de memoria, porque estoy en un ciber y no tengo el código):
Código Delphi
[-]
var Bmp: TBitmap;
X, Y: Integer;
Bmp:= TBitmap.Create;
Bmp.LoadFormFile('c:\algo.bmp'); Bmp.Canvas.Brush.Color:= clBlack;
Bmp.Canvas.Rectangle(0, 0, 17, 17);
for X:= 0 to 17 do
for Y:= 0 to 17 do
Bmp.Canvas.Pixel:= clWhite;
Bmp.SaveToFile('c:\algo.bmp');
Bmp.Free;
Y el pixel (0, 0) es clBlack, en vez de clWhite... El pixel (1, 0) es, increíblemente, clWhite.