[OK]ボタンのOnClickイベントで次のように記述します。
（画面の呼び出しと単価の設定）
procedure TfrmTanka.BtnOkClick(Sender: TObject); begin //引渡用の単価設定(単価マスタOPEN時のみ) if qryTanka.Active then scTANKA := DBGrid1.DataSource.DataSet.FieldValues['TANKA']; end;
