テキストファイルを読む procedure TForm1.Button21Click(Sender: TObject); var cn :Variant;//Connection rs :Variant;//Recordset const adOpenDynamic: Integer = 2; adOpenForwardOnly: Integer = 0; adOpenKeyset: Integer = 1; adOpenStatic: Integer…