[angvelem]

Прекрасно рисуется нужным цветом:

Код:

procedure TForm2.FormCreate(Sender: TObject);
var
  bm1,
  bm2 :  TBitmap;
begin
  bm1 := TBitmap.Create;
  try
    bm1.LoadFromFile('1111.bmp');
    bm2 := TBitmap.Create;
    try
      bm2.Assign(bm1);
      bm2.PixelFormat := pf32bit;
      bm2.Canvas.Pen.Color:=clRed;
      bm2.Canvas.MoveTo(10, 10);
      bm2.Canvas.LineTo(50, 10);
      bm2.Canvas.Ellipse(20, 20, 80, 40);
      Image1.Picture.Bitmap := bm2;
    finally
      bm2.Free;
    end;
  finally
    bm1.Free;
  end;
end;