Tvuj problem je v tom, ze mas obrazek v BMP a pouze cernobily. Jak chces do takove bitmapy malovat cervene ? Bud budes mit bitmapy napr. v 256 barvach - nedoporucuju, protoze y byly zbytecne velike, nebo pouzijes nejaky inteligentnejsi format (PNG) nebo si zmnis bitmapu na barevnou az v programu.

Tady je kod, ktery demonstruje 3. moznost:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('Drak.bmp');
  { zmenime si obrazek z cernobileho na barevny }
  Image1.Picture.Bitmap.PixelFormat := pf8bit;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Image1.Canvas.Brush.Color:=clred;
  Image1.Canvas.FloodFill(x+8, y+8, clBlack, fsBorder);
end;