>>15

lbl.lfCharSet := SHIFTJIS_CHARSET;

これを追加しなさい