パラメータクエリー procedure TForm1.Button18Click(Sender: TObject); var de:Variant;//DBEngine db:Variant;//Database qd:Variant;//QueryDef rs:Variant;//Recordset const dbOpenForwardOnly:Integer = 8; begin //表示用コントロールをクリア ListBo…