procedure TfrmMeisai.BtnShohinClick(Sender: TObject);
begin
  FrmShohin := TFrmShohin.Create(Self);
  if  FrmShohin.ShowModal =  mrOK  then
  begin
    EditShoCd.Text :=  FrmShohin.sCD;    //商品コード
    EditShoNm.Text :=  FrmShohin.sNm;    //商品名
    EditSuryo.SetFocus;
  end
  else
  begin
    EditShoCd.SetFocus;
  end;
  FrmShohin.Release;
end;