procedure TfrmJuchu.Button1Click(Sender: TObject);
begin
  FrmShain := TFrmShain.Create(Self);
  if  FrmShain.ShowModal =mrOK then
  begin
    EditShain.Text   :=  FrmShain.sCd;     //社員コード
    EditShainNm.Text :=  FrmShain.sNm;     //社員名
    EditNo.SetFocus;
  end
  else
  begin
    EditShain.SetFocus;
  end;
  FrmShain.Release;
end;