[Nyctos Kasignete]

Не делайте поспешных выводов.
Давайте с простого. Пусть на форме у вас битмап. Киньте на форму кнопку и назначьте ей вот такой обработчик события OnClick:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  StartPos: TPoint;
  oldPenMode: TPenMode;
begin
  StartPos.X := 0; StartPos.Y := 0;
  with Image1.Canvas do
  begin
    oldPenMode := Pen.Mode;
    Pen.Mode := pmNotXor;
    PenPos := StartPos;
    LineTo(Image1.Width, Image1.Height);
    Pen.Mode := oldPenMode;
  end;
end;

Щелкните один раз на этой кнопке, посмотрите, нарисовалась линия по диагонали. Щелкните еще раз. Стерлась линия?