паника!

[faustpatron13]

Уважаемые!
У меня творится что-то странное...
Написал программку, последовательность действий которой:
1. Открыть картинку
2. Нажать на любую область этой картинки(если белый пиксел - дальше, другой - стоп)
3. Выбрать из появившихся вокруг клика панелек панельку нужного цвета, и залить ту область, где кликнули выбраным цветом...
Программно всё вроде правильно, но почему-то на выбранные красный, зелёный и синий цвет - заливает чёрным цветом, а жёлтый - вообще не заливает((

[Прик]

Если загрузить картинку таким образом, то программа будет работать нормально:

procedure TForm1.Button1Click(Sender: TObject);
var B : TBitMap;
begin
  if openpicturedialog1.Execute then begin
    B := TBitMap.Create;
    try
      B.LoadFromFile(openpicturedialog1.FileName);
      Image1.Canvas.Draw(0, 0, B);
    finally
      B.Free;
    end;
  end;
end;