problema con imagenes bitonales

[hazelboy87]

Hola, soy un humilde principiante en esto del delphi y en mi código voy modificando una imagen bitonal ("en blanco y negro") sin embargo la imagen me sale en blanco y rojo y no encuentro el fallo.

Código Delphi [-]
               {inicializo}
               imagen := TBitmap.create;
               imagen.PixelFormat := pf1Bit;
               imagen.Width := Width;
               imagen.Height := Height;

               {modifico los pixels}
               imagen.Canvas.Pixels[x,y]:=0;
               {o}
               imagen.Canvas.Pixels[x,y]:=255;
               {termino}
               imagen.SaveToFile('imagenObtenida.bmp');
               imagen.Free;

Si alguien ve alguno de los muxos errores que debe tener mi desastroso código y quiere comentarme en que he metido la pata me haría un favor.

Gracias!!!