FormのOnCloseQueryイベントで次のように記述します。
(画面の呼び出しと商品コード・商品名の設定)
procedure TfrmShohin.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin if ModalResult = mrOK then begin with qryWSMHP do begin sCD := FieldbyName('WPNO').AsInteger; sNm := FieldbyName('WNAME').AsString; end; end; end;