public
    { Public 宣言 }
    sCd  : String;
    sNm  : String;
  end;

procedure TfrmShain.FormCreate(Sender: TObject);
begin
  dsShain.DataSet.Open;
  dsShain.DataSet.First;

end;


procedure TfrmShain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if ModalResult = mrOK then
  begin
    sCd  := dsShain.DataSet.FieldByName('SYSYCD').AsString;
    sNm  := dsShain.DataSet.FieldByName('SYSYKJ').AsString;
  end;

end;