Exactamente, el objeto no ha sido Inicializado, debes hacer algo similar con el Query tambien.
procedure alta(nombre, maestra : string;edad, grado : integer);
var
database : TADOConnection;
query: TADOQuery;
begin
database:= TADOConnection.Create(self);//Aki se inicializa el objeto
database.Connected := false; <-------- Al llegar a esta parte se interrumpe la ejecucion del programa
database.ConnectionString :='Provider=MSDASQL.1;Password=colegio;Persist Security Info=True;User ID=colegio;Data Source=myodbc3-test';
database.Connected := true;
.
Suerte
|