ADOQuery1.SQL.Clear;
ADOQuery2.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Employees');
ADOQuery1.SQL.Add('WHERE EmpID = 1;');
ADOQuery2.SQL.Text :='SELECT * FROM Employees' + #13 + #10 +
      'WHERE EmpID = 1;' + #13 + #10;

if ADOQuery1.SQL.Text = ADOQuery2.SQL.Text then ShowMessage('Одинаковы');

// Этот вариант

ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from employees');
ADOQuery1.SQL.Add('where empid = :empid');

// Не равен этому

ADOQuery1.SQL.Text := 'select * from employees where empid = :empid';

// Но равен этому

ADOQuery1.SQL.BeginUpdate;
try
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select * from employees');
  ADOQuery1.SQL.Add('where empid = :empid');
finally
  ADOQuery1.SQL.EndUpdate;
end;

Так что, друзья, без Add никуда :)))

procedure TStrings.SetTextStr(const Value: string);
begin
//...
  Add(S);
//...
end;

ADOQuery1.SQL.Text := '-- Здесь пятьдесят строк комментария запроса ;)'
  + '-- ...'
  + '-- ...'
  + '-- Все пятьдесят мне писать в ломы... ;)'
  + 'SELECT * FROM Employees';

function LoadSQL(const ResourceID: Cardinal): string; overload;
begin
  with TResourceStream.CreateFromID(hInstance, ResourceID, RT_RCDATA) do
    try
      SetLength(Result, Size);
      if Size > 0 then ReadBuffer(Result[1], Size);
    finally
      Free;
    end;
end;

function LoadSQL(const ResourceID: Cardinal; const Arguments: array of const): string; overload;
begin
  Result := Format(LoadSQL(ResourceID), Arguments);
end;

Query1.SQL.Text := LoadSQL(1);

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOQuery1.SQL.Text := 'select * from sectors';
  ADOQuery1.Open;
  if ADOQuery1.Active then ShowMessage('Active') else ShowMessage('Not active');
  ADOQuery1.SQL.Text := 'select * from sectors';
  if ADOQuery1.Active then ShowMessage('Active') else ShowMessage('Not active');
end;

constructor TADOQuery.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FSQL := TStringList.Create;
  TStringList(FSQL).OnChange := QueryChanged; // Вот тут!
  Command.CommandTextAlias := 'SQL'; { Do not localize }
end;

procedure TADOQuery.QueryChanged(Sender: TObject);
begin
  if not (csLoading in ComponentState) then
    Close; // Вот тут!
  CommandText := FSQL.Text;
end;

procedure TForm1.Button1Click(Sender:TObject);
begin
  ADOQuery1.Active := false;
  ADOQuery1.Connection.BeginTrans;
  try
    ADOQuery1.SQL.Text :='....';
    ADOQuery1.ExecSQL;
    // ...
    ADOQuery1.Active := false;
    ADOQuery1.SQL.Text :='....';
    ADOQuery1.ExecSQL;  // Допустим, здесь происходит ошибка
    // ...
    ADOQuery1.Connection.CommitTrans;
  except
    ADOQuery1.Connection.RollbackTrans;
    raise;
  end
end;

begin
  ADOQuery1.Active := false;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add := '....';
  ADOQuery1.SQL.Add := '....';
  ADOQuery1.ExecSQL;
end;

Button1.onClick(Sender:TObject);
begin
  ADOConnection1.BeginTrans;
  try
    ADOQuery1.Active := false;
    ADOQuery1.SQL.Text :='....';
    ADOQuery1.ExecSQL;
    ..
    ADOQuery1.Active := false;
    ADOQuery1.SQL.Text :='....';
    ADOQuery1.ExecSQL;<----Допустим, здесь происходит ошибка
    ..
    ADOConnection1.CommitTrans
  except
    ADOConnection1.RollbackTrans;
    raise
  end
end;