ADQuery1.SQL.BeginUpdate;
try
  ADQuery1.SQL.Add('SELECT ...');
  ADQuery1.SQL.Add('...');
  ADQuery1.SQL.Add('...');
  ADQuery1.SQL.Add('WHERE ID = :ID');
finally
  ADQuery1.SQL.EndUpdate;
end;
ADQuery1.ParamByName('ID').AsInteger := 100;
ADQuery1.Open;