Problem mit IF unf FieldbyName

[Delphi Code Anfänger]

Ah bin selber drauf gekommen. Im onClose habe ich folgendes:

Delphi-Quellcode:

 if not CheckBox1.Checked then
 ADOQuery1.Active:=false;
 ADOQuery1.Sql.Clear;
 ADOQuery1.Sql.Add('...');
 AdoQuery1.Prepared := True;
 AdoQuery1.ExecSQL;
 ADOQuery1.Next;
 if CheckBox1.Checked then
 ADOQuery1.Active:=false;
 ADOQuery1.Sql.Clear;
 ADOQuery1.Sql.Add('...');
 AdoQuery1.Prepared := True;
 AdoQuery1.ExecSQL;
 ADOQuery1.Next;

Dadurch kommt Meldung. Ich glaube es geht nicht, dass man zwei mal eine ADOQuery in einer Procedure anspricht oder?