削除する procedure TForm1.Button13Click(Sender: TObject); var cn :Variant;//Connection rs :Variant;//Recordset sql:string; const adOpenDynamic: Integer = 2; adOpenForwardOnly: Integer = 0; adOpenKeyset: Integer = 1; adOpenStatic: Integer =…