[Lord Delfos]

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'); //que mide 18x18
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.