수고 많으십니다...
앞전에 글을 올렸는데 확실한 답이 없어서 다시 질문 합니다.
먼저 소스를 올리겠습니다.

unit jungyang000;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, Mask, StdCtrls, Buttons, OleCtrls, MSCommLib_TLB, ExtCtrls,
  ValEdit, math, jpeg;

type
  TFjungyang000 = class(TForm)
    Label1: TLabel;
    EdPrtsu: TEdit;
    Label2: TLabel;
    EdQty: TEdit;
    Label3: TLabel;
    MskPrdDt: TMaskEdit;
    DTPdate: TDateTimePicker;
    Label5: TLabel;
    Label6: TLabel;
    BtnPrt: TButton;
    BtnClose: TButton;
    SbZebraLoad: TSpeedButton;
    Image1: TImage;
    EdPumcd: TEdit;
    EdPumNm: TEdit;
    EdCuscd: TEdit;
    EdCusNm: TEdit;
    EYutongCd: TEdit;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    SbPumok10: TSpeedButton;
    SbPumok11: TSpeedButton;
    SbPumok20: TSpeedButton;
    SbPumok21: TSpeedButton;
    SbPumok30: TSpeedButton;
    SbPumok31: TSpeedButton;
    ValJseq: TValEdit;
    SbPumok12: TSpeedButton;
    SbPumok13: TSpeedButton;
    SbPumok22: TSpeedButton;
    SbPumok23: TSpeedButton;
    SbPumok32: TSpeedButton;
    SbPumok33: TSpeedButton;
    MskPumok: TMaskEdit;
    TabSheet4: TTabSheet;
    SbPumok40: TSpeedButton;
    EdtPumok: TEdit;
    EndBtn: TButton;
    Btn1test: TButton;
    procedure FormCreate(Sender: TObject);
    procedure BtnCloseClick(Sender: TObject);
    procedure SbZebraLoadClick(Sender: TObject);
    procedure BtnPrtClick(Sender: TObject);
    procedure DTPdateCloseUp(Sender: TObject);
    procedure SbPumok10Click(Sender: TObject);
    procedure Get_Pumok;

  private
    { Private declarations }
    function Get_Seq : integer;
    function Insert_rtn : boolean ;
    function GetCheck : boolean;
    procedure PrintBarCode(const sDate, sPumok, sPumNm : string;
                                  const iSeqNo, iCount : integer;
                                  const nSQty : extended; const sYutCode : string );
    function Get_BarDate( const sDate : string ) : string;
    function get_yutcode(const spumok:string):string;
    procedure Get_ValJseq;
  public
    { Public declarations }
  end;

var
  Fjungyang000: TFjungyang000;

implementation

uses Adm, Progress, MisCom, Camis;
{$R *.DFM}
var
  sResv : string;
  sPrevilage, EdPrtSu : string;

procedure TFjungyang000.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  sPrevilage := 'D';
  MskPrdDt.Text := formatdatetime('yyyymmdd',now);
  Dtpdate.date := now;

  PageControl1.ActivePageIndex := 0;
  for i := 0 to ComponentCount-1 do
    begin
    if Components[i] is TSPeedButton then
      case TSPeedButton(Components[i]).GroupIndex of
        1 : TSPeedButton(Components[i]).Font.Color := clBlue;
        2 : TSPeedButton(Components[i]).Font.Color := clNavy;
        3 : TSPeedButton(Components[i]).Font.Color := clMaroon;
        4 : TSPeedButton(Components[i]).Font.Color := clMaroon;
      end;
    end;

  // 냉동
  SbPumok10.Caption := '머리'    + #13 + '6-1160-00';
  SbPumok11.Caption := '몸'       + #13 + '6-1170-00';
  SbPumok12.Caption := '팔'       + #13 + '6-1360-00';
  SbPumok13.Caption := '다리'    + #13 + '6-1370-00';
  // 냉동-남
  SbPumok20.Caption := '머리'    + #13 + '6-1160-00';
  SbPumok21.Caption := '몸'       + #13 + '6-1170-00';
  SbPumok22.Caption := '팔'       + #13 + '6-1360-00';
  SbPumok23.Caption := '다리'    + #13 + '6-1370-00';
  // 냉동-여
  SbPumok30.Caption := '머리'    + #13 + '9-1160-00';
  SbPumok31.Caption := '몸'       + #13 + '9-1170-00';
  SbPumok32.Caption := '팔'       + #13 + '9-1360-00';
  SbPumok33.Caption := '다리'    + #13 + '9-1370-00';
  //  지방
  SbPumok40.Caption := '지방';

  Get_ValJseq;

  image1.Visible := true;
end;

procedure TFjungyang000.Get_ValJseq;
begin
  // 제조번호의 Max값을 가져옴
  try
    With DM1.Query1 do
      begin
      Sql.Clear;
//      Sql.Add('select max(JSEQ) MAXSEQ from JYANG');
      Sql.Add('select max(JSEQ) MAXSEQ from JYang');
      Sql.Add(' where PRDDT = '''+MskPrdDt.Text+'''');
      Sql.Add('   and CHUKGB = ''1''');

      open;

      ValJseq.Value := FieldByName('MAXSEQ').asInteger;

      if ValJseq.Value < 5000 then
         ValJseq.Value := 5000
      else
         ValJseq.Value := FieldByName('MAXSEQ').asInteger + 1;

//      close;
      end;

  finally
    Screen.Cursor := crDefault;
  end;
end;

위와 같이 했는데
  MskPrdDt.Text := formatdatetime('yyyymmdd',now);
  Dtpdate.date := now;
이 부분이 컴파일하여 폼이 생성되면서 날짜가 나와야하는데
안나오더군요
또,
  SbPumok10.Caption := '머리'    + #13 + '6-1160-00';
  SbPumok11.Caption := '몸'       + #13 + '6-1170-00';
이부분도 안되더군요
똑같은 형태로 사용하고 있는것이 있는데
아무리 봐도 왜 안되는지 모르겠더라구요

아시는 분들은 빨리 좀 부탁드릴께요.. 좀 급해서요 -.-;;

그럼 부탁드리고 앞전에 ^--^ 님의 답은 잘 읽었는데
잘 안되서 다시 올렸으니 너무 섭섭하게 생각지는 말아주세요