[aams01]

Hola si no uso Query->ExecSQL(); no funciona Query->RowsAffected Alguien sabe por que, una solución tonta es

FMenu2->Query->SQL->Add(Sql);
	FMenu2->Query->ExecSQL();
	if(FMenu2->Query->RowsAffected>0){
		FMenu2->Query->Open();
		Llenado();
	}

pero claro que lo tonto no es lo optimo alguna sugerencia