El problema es que estás definiendo un objeto Query1 y no lo estás creando.
una forma segura de trabajar cuando se crean objetos es así:
var
Query1: TADOQuery;
begin
Query1:= TADOQuery.Create(nil);//ponele el owner que quieras
try
try
Query1.Connection:= ADOConnection1;
Query1.Close;
Query1.SQL.Text:='...';
Query1.Open;
except
...//procesamiento de errores.
end;
finally
Query1.Close;
Query1.Free;//no te olvides de liberar la MEM!!!,
end;
end;
|