canvas til bitmap

Jeg forsøger at tegne mig en kalender, dog er den stadig ret primitiv.

Men jeg vil gerne gemme billedet som en bmp fil (som senere kan konverteres til png eller andet format)

Jeg prøver følgende kode:


var
  W, D, Ds, Day: Integer;
  newRect: TRect;
  Bitmap: TBitmap;
const
  colWidth = 25;
  rowHeight = 25;
  offsetX = 0;
  offsetY = 0;
begin
  Ds := 1;
  Day := 1;

  newRect.Left := 0;
  newRect.Top := 0;
  newRect.Bottom := 1024;
  newRect.Right := 1280;

  Bitmap := TBitmap.Create;

  with Bitmap.Canvas do
  begin
    Pen.Color := clBackground;
    Brush.Color := clBackground;
    Brush.Style := bsSolid;
    Rectangle(0, 0, 1280, 1024);
    Font.Color := clWhite;

    for W := 1 to 5 do
    begin
      for D := Ds to Ds+6 do
      begin
        TextOut(colWidth*(D-1), rowHeight*(W-1), IntToStr(Day));
        Inc(Day, 1);
      end;
    end;
  end;

  Bitmap.SaveToFile('C:\TEST.BMP');
  Bitmap.Free;


Mit billede er dog blot helt tomt. Hvad skyldes det?